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PREFAZIONE 


Lo ZX-80 non è frutto di una tecnologia particolare: poteva essere fatto più o 
meno identico già cinque o dieci anni fa! Il Sinclair ZX-80 è eccezionale perchè 
fare un computer semplice, anzi semplicissimo è molto difficile! Gl’ingredienti 
sono i soliti: un microprocessore (loZ-80), memorie RAM e ROM, una mancia¬ 
ta di componenti. Ma (e qui sta la genialità) presentate tutto questo in un 
contenitore che può stare in una tasca, munitelo di una tastiera completa, 
dategli la possibilità di collegarsi direttamente con un comune televisore e con 
un registratore, fatelo parlare in BASIC, e otterrete il Sinclair ZX-80. 

Ma non basta: per chi non ama le scatole chiuse, per chi vuole sapere com'è 
fatto un computer, lo ZX-80 è fornito in tutte le sedi GBC anche in kit. Vuol dire 
cioè, partendo dal gradino più basso (il montaggio), arrivare subito ad un 
oggetto immediatamente e comodamente utilizzabile. 

Lo ZX-80 è realizzato su un’unica piastra. Il circuito stampato fa da supporto 
anche alla tastiera, che occupa circa un terzo dell’intera piastra. In pratica ogni 
tasto è realizzato con due piste molto vicine fra loro: la pressione del dito su 
uno dei tasti “disegnati” fa scendere della plastica conduttrice, che stabilisce il 
collegamento tra le due piste sottostanti. Semplice, vero? Ma soprattutto una 
soluzione poco costosa rispetto, ad esempio, ad una tastiera del tipo capaciti¬ 
vo, con cui a prima vista può essere confusa. 

Il resto del circuito stampato è occupato dai componenti: pochi in verità (solo 
22 circuiti complessivamente), il che fra l’altro permette un popolamento della 
scheda non particolarmente fitto. Questa circostanza è evidenziata per due 
motivi: un popolamento fitto creerebbe in primo luogo problemi di dissipazio¬ 
ne di calore, ed in secondo luogo richiederebbe in fase di montaggio un’atten¬ 
zione maggiore (ricordo ancora che lo ZX-80 è fornito anche in kit). 

Per partire è sufficiente collegare il sistema ad un comune televisore, e quindi 
alimentarlo con una tensione di 9 V. Dopo essersi sintonizzati sul canale 36 
UHF, comparirà, sul fondo dello schermo, il cursore, rappresentato dalla 
lettera K (visualizzata in modalità inversa) e posizionata nell’angolo in basso a 
sinistra. Sul video sono rappresentabili 23 linee di 32 caratteri ciascuna. 

Il Sinclair ZX-80 lavora direttamente in BASIC residente in una ROM da 4 
Kbyte. In realtà nella ROM sono contenuti anche i programmi di gestione delle 
varie periferiche (video, cassetta magnetica e tastiera), nonché i dati che 
definiscono le configurazioni dei caratteri alfanumerici e dei caratteri grafici 
che compaiono sul video, dato che manca l’apposito integrato generatore dei 
caratteri, di solito presente. 

Ma alla Sinclair non si sono fermati a questo punto: sempre nella medesima 
ROM risiede un originale e potente editor le cui caratteristiche più significative 
sono quelle di operare la distinzione tra linea in fase di impostazione e linea già 
impostata, e di fare un controllo sulla validità della sintassi della linea imposta¬ 
ta, già in fase di editazione, senza cioè attendere il momento dell’esecuzione. A 
ciò bisogna aggiungere che la maggior parte dei tasti ha associati due o tre 
significati: se non è premuto il tasto SHIFT è generata la relativa lettera 
(maiuscola), diversamente (cioè con SHIFT premuto) sarà generato il caratte¬ 
re grafico o il segno d'interpunzione associato al tasto medesimo. E fin qui 
nulla di nuovo, a parte il fatto di poter contare su un insieme (anche se limitato) 
di simboli grafici. La novità è che il sistema riconosce quando si è nella fase 
d’introduzione delle parole-chiave del BASIC, per cui predispone l’intera ta¬ 
stiera (esclusa la linea dei tasti superiori) in modo che ogni tasto abbia il 
significato della parola-chiave BASIC che compare sul relativo layout di tastie¬ 
ra. Allora, per esempio, per scrivere l’istruzione 10 PRINT “CIAO”, è sufficien¬ 
te, dopo aver dichiarato l'identificatore di linea, premere il tasto con la lettera 0 
per vedere immediatamente per intero su video la parola-chiave PRINT, dopo 
la quale si posiziona il cursore ad indicare la posizione dove verranno posti i 
successivi caratteri. A questo punto occorre un’ulteriore precisazione: ho 
detto prima che il cursore è rappresentato dalla lettera K in modalità inversa. 
Ebbene, la lettera K sta per keyword (che in inglese vuol dire parola-chiave), e 
sta ad indicare quando la tastiera è predisposta all’introduzione delle parole- 
chiave: infatti, dopo aver premuto il tasto 0 (cioè PRINT), il cursore è rappre¬ 
sentato non più dalla lettera K ma dalla lettera L (sempre in modalità inversa). 
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Eccezionale, vero? In altre parole, il sistema comunica in che stato è la tastiera, 
per non generare confusione! Infatti, quando il cursore è rappresentato da L, 
alla tastiera sono associati gli abituali caratteri alfanumerici e grafici. Allora, 
tornando all’esempio precedente, possiamo tranquillamente completare l’i¬ 
struzione battendo carattere per carattere, le virgole e la parola CIAO. 

La chiusura dell’istruzione è fatta premendo il tasto NEWLINE: solo a questo 
punto l’istruzione è memorizzata nella memoria di programma. Questo pas¬ 
saggio è segnalato in modo evidente: la linea in fase di editaggio è sempre 
visualizzata ne\Vultima riga del video, mentre, dopo il trasferimento nella 
memoria di programma, è visualizzata in alto nello schermo in coda alle 
eventuali istruzioni già introdotte. In questo consiste la distinzione tra linea in 
corso d’impostazione (quella che compare nell’ultima riga del video) e linea 
già impostata (quella o quelle che compaiono nella parte superiore dello 
schermo), segnalata in precedenza. 

Accanto a questa utile modalità, l’editor delle ZX-80 presenta un’altra interes¬ 
sante caratteristica: controlla i caratteri introdotti nella linea in fase d’imposta¬ 
zione allo scopo di segnale immediatamente errori di sintassi. In caso di errore 
infatti l’introduzione è bloccata, mentre il cursore da K o L diventa S (come 
syntax). Questa caratteristica permette di ottenere dalla fase di editaggio 
sempre linee corrette dal punto di vista sintattico, per cui durante l’iniziale 
esecuzione del programma si possono efficacemente analizzare solo gli even¬ 
tuali errori logici fatti durante la concezione del programma. Questi brevi cenni 
mostrano come le funzionalità di editing siano particolarmente sofisticate in 
riferimento al tipo di sistema: senz’altro sono da riportare ad una volontà di 
agevolare l’uso dello ZX-80 da parte di utilizzatori inesperti. 

Ad eccezione comunque, delle funzioni matematiche e trigonometriche, si 
contano ben 34 tra istruzioni riportate nella scheda successiva, funzioni e 
comandi, che, pur con una serie di varie limitazioni, permettono comunque 
una programmazione abbastanza elastica. 

A tutto questo occorre aggiungere la considerazione più importante, quella 
del prezzo: il prezzo dello ZX-80, montato o in kit, è comunque uno dei più 
bassi in assoluto. 

Ecco, sono questi elementi quelli, che hanno fatto sì che questo prodotto 
riuscisse ad imporsi sui vari mercati esteri tanto rapidamente. È chiaro comun¬ 
que che il fornire un computer a basso costo si riflette sulle prestazioni; ma il 
nostro parere è che il discorso sulle prestazioni diventa di secondaria impor¬ 
tanza quando il fatto principale è che prodotti come lo ZX-80 permettono a 
tutti, dato il costo, di lavorare con un computer, capire che cosasi può fare con 
un computer. 

Quest’ultima considerazione è fatta con riferimento soprattutto alle numerose 
richieste di lettori che, desiderando iniziare a lavorare con un computer, sono 
fermati da cifre non accessibili a tutti, o ancora da parte di tutti coloro che 
vogliono imparare a programmare in BASIC. Ora, noi riteniamo che in questi 
casi iniziare a lavorare con un computer, vedere sperimentalmente che cosa 
un computer può o non può fare sia veramente produttivo, didattico, efficace, 
soprattutto se si dispone, come in questo caso di un libro-manuale quale 
"Impariamo a programmare in BASIC con lo ZX-80” del Gruppo Editoriale 
Jackson, in vendita presso la Jackson stessa, le migliori librerie e tutte le sedi 
GBC con il codice TL/1450-01 al prezzo di L. 4.500. 

Forse è veramente arrivato il momento in cui ciascuno può avere il proprio 
computer personale! 

Poiché tutti i motivi precedentemente detti fanno delio ZX-80 “un computer” 
da sperimentare, con quésto volume vogliamo fare conoscere 30 programmi 
applicativi, già fatti "girare” con successo. Essendo programmi pronti all’uso si 
rivolgono soprattutto ai non programmatori, quale valido ausilio didattico, 
nonché prima implementazione del BASIC studiato, ma possono essere, 
da parte dei più esperti, anche base di partenza per ulteriori elaborazioni. 
Buoni programmi! 


Rita Boneili 
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La scheda del Sinclair ZX-80 


Variabili: 

Intere primo carattere alfabetico, caratteri successivi o 
cifre o lettere senza spazi, contenuto numeri in¬ 
teri compresi tra — 32768 e + 32767. 

Stringhe: nome formato da una lettera seguita da $ (dolla¬ 

ro), non c’è limite al numero dei caratteri conte¬ 
nuti. 


Costanti 

Intere: numeri compresi fra — 32768 e + 32767. 

Stringhe: delimitate dagli apici, lunghezza a piacere, pos¬ 

sono contenere qualunque carattere salvo gli 
apici. 

Variabili 
con Indice: 

Intere: nome formato da una sola lettera, un solo indice 

e come indice espressione intera. 

Variabili di 
controllo: 

Intere: e con nome formato da una sola lettera. 


INPUT dest 
PRINT lista 

LIST n 

LIST 

STOP 

DIM A(n) 


FOR K = 
ni TO n2 


GOTO n 
POKE ni, n2 


legge e memorizza in dest. 

stampa il contenuto di lista, 
separatori di campo; e. 

lista il programma con il punta¬ 
tore di linea ad n. 

lista il programma dall'inizio. 

ferma il programma, per conti¬ 
nuare CONTINUE. 

predispone una variabile nu¬ 
merica con indice formata da 
n + 1 elementi. 


gestisce con il contatore K un 
ciclo per valore iniziale di K = 
ni evalorefinaledi K = n2dan¬ 
do ad ogni giro l’incremento di 
1 a K. 

salta alla linea n. 

scrive all’indirizzo ni il valore 
n2. 


RANDOMISE n pone l'inizio per la generazione 
dei numeri a caso al valore n. 


Espressioni 

aritmetiche: 

Operatori 

aritmetici: ** (elevato a) 

- (unitario) 

* prodotto 
/ divisione 

+ somma (somma e sottrazione 

— sottrazione non hanno ordine di 

precedenza tra loro) 
uso delle parentesi 

ordine di valutazione da sinistra a destra con la 
precedenza con la quale sono stati listati gli ope¬ 
ratori. 

Espressioni Operazioni 


relazionali: 

relazionali 

= > < (senza ordine di prece¬ 
denza tra loro) 

Valore — 1 per condizione ve¬ 
ra; 0 per condizione falsa. 


Operatori 

logici: 

NOT, AND, OR (le precedenze 
sono quelle date dalla lista) 

Espressioni 

Booleane: 

usano gli 
operatori logici. 


Istruzioni: 

NEW 

inizializza il calcolatore e can¬ 
cella la memoria. 


LOAD 

carica programmi e dati da na¬ 
stro magnetico. 


SAVE 

memorizza programmi e dati 
su nastro magnetico. 


RUN 

manda in esecuzione un pro¬ 
gramma azzerando le variabili. 


RUN n 

come sopra, ma con partenza 
dalla linea n. 


CONTINUE 

fa continuare da n se n è nel 
messaggio del sistema, fa con¬ 
tinuare da n + 1 dopo uno 
STOP. 


REM 

commenti a scopo documen- 
tativo. 


IF n THEN 
istruzione 

esegue istruzione se la condi- 


zione n è vera. 


RANDOMISE 

CLEAR 

CLS 

GOSUB n 


RETURN 

NEXT K 

LET 


come sopra, ma n = valore del 
contatore dei fotogrammi dello 
schermo. 

cancella tutte le variabili. 

azzera la parte superiore dello 
schermo. 

come GOTO, ma conserva nel¬ 
lo STACK l’indicazione per ri¬ 
tornare al programma princi¬ 
pale. 

fa prelevare dallo STACK l’in¬ 
dicazione per tornare al pro¬ 
gramma principale. 

chiude il ciclo iniziato da FOR, 
incrementa K e ne controlla il 
valore. 

consente di fare qualunque 
operazione di assegnazione o 
di calcolo. 


Esiste il tasto BREAK per interrompere l’esecu¬ 
zione di un programma se non è in attesa di INPUT. 


Funzioni 

implementate: RND(n) 

ABS (espress.) 
PEEK(n) 

USR(n) 

CHR$(x) 

TL$ (stringa) 
CODE (stringa) 
STR$(x) 


genera un numero pseudo- 
random minore o uguale a n. 
La sequenza è influenzata nel 
punto di partenza da RANDO- 
MISE. 

fornisce il valore assoluto della 
espressione. 

fornisce il contenuto del byte 
di memoria di indirizzo n. 

permette di andare ad eseguire 
un codice macchina memoriz¬ 
zato a partire da n. 

fornisce il carattere corrispon¬ 
dente al codice numerico x 

ritorna la stringa senza il suo 
primo carattere. 

fornisce il codice numerico del 
primo carattere della stringa. 

fornisce una stringa di caratte¬ 
ri corrispondente al numero x 
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IL GIOCO 
DELLE RANE 


Autore: Dr.ssa R. Bonelll 
Programma utilizzante: 

1 K di memoria 



Si hanno 9 caselle, numerate da 1 a 9 e 8 rane, 4 nere e 4 
bianche. Lo stato iniziale delle rane è quello dello sche¬ 
ma: 


0 0 0 0 
123456789 

Il giocatore muove una rana per volta, dando le coordi¬ 
nate (numero N=XY) della posizionedi partenza (X) edi 
quella di arrivo (Y), nella forma XY. 

Le mosse consentite sono: 

- una rana può passare nella casella vicina, se vuota; 

- una rana può scavalcare un’altra rana andando ad oc¬ 
cupare una casella vuota. 

Si deve raggiungere, con il minor numero di mosse, la 
situazione di avere o tutte le rane a destra, o tutte le rane 
a sinistra, senza caselle vuote tra loro e con tutte le rane 
dello stesso colore vicine tra loro. 

I movimenti iniziali possibili sono: XY=35, XY=45, 
XY=65, XY=75. 

le variabili del programma sono: 

P(l) con I = 1, 2,..., 8, 9 per le caselle; 

C = contatore delle mosse del giocatore; 

N = numero che dà la mossa; 

X = posizione di partenza della rana; 

Y = posizione di arrivo della rana; 

R$ = risposta SI o NO 

P(l) contiene 129 se occupato da rana nera e 128 se oc¬ 
cupato da rana bianca, contiene zero se vuoto. 

Quando il giocatore ha vinto, il programma chiede se 
vuol giocare ancora; se la risposta è SI, il gioco ricomin¬ 
cia. 

10 REM GIOCO RANE 

20 PRINT “GIOCO DELLE RANE" 

21 PRINT “SI MUOVE SCRIVENDO N DI 2 CIFRE" 

22 PRINT “N=XY; X=POSIZIONE PARTENZA" 

23 PRINT “Y=POSIZIONE ARRIVO” 

30 DIM P(9) 

40 LET P(5) = 0 
50 FOR I = 1 TO 4 
60 LET P(l) = 129 
70 LET P(l+5) = 128 
80 NEXT I 
100 LET C = 0 
150 CLS 

200 GOSUB 1000 
300 PRINT “MUOVI” 

310 INPUT N 

320 IF N = 0 THEN GO TO 550 

30 LET X = N/10 

340 LETY = N-10*X 

345 LET C = C+1 

350 IF X = 0 THEN GO TO 300 

360 IF P(X) = 0 THEN GO TO 300 

370 IF Y = 0 THEN GO TO 300 

380 IF P(Y) > 0 THEN GO TO 300 

390 IF ABS(X-Y) > 2 THEN GO TO 300 

400 LET P(Y) = P(X) 

410 LET P(X) = 0 
450 GO SUB 1000 

460 IF P(1)=0 OR P(9) = 0 THEN GO TO 470 
465 GO TO 300 
470 LET X = 2 

480 IF P(9) = 0 THEN LET X=1 

490 FOR I = X TO X + 3 

495 IF NOT P(l) = 129 THEN GO TO 300 


V. 
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500 NEXT I 

510 PRINT “HAI TERMINATO IN “;C;” MOSSE” 

520 PRINT “VUOI GIOCARE ANCORA?” 

530 INPUT R$ 

540 IF CODE(R$) = 56 THEN GO TO 40 
550 PRINT “ARRIVEDERCI” 

560 STOP 

1000 REM SOTTOPROGRAMMA STAMPA SITUAZIONE 

1005 FOR I = 1 TO 9 

1010 PRINT CHR$ (P(l)); “A”; 

1020 InEX T I 
1030 PRINT 
1040 FOR I = 1 TO 9 
1050 PRINT I; “A"; 

1060 NEXT I 
1070 PRINT 
1080 RETURN 



Autore: Dr.ssa R. Bonelli 

Programma utilizzante: 

1 K di memoria 


MESSAGGI 

SEGRETI 


3UKETE 



J V. 
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"1 

MESSAGGI 

SEGRETI 

_ / 


Con questo programma si possono preparare messaggi 
segreti, provvedendo a una decodifica del messaggio. 
La chiave per trasformare i messaggi è il generatore dei 
numeri pseudo random dello ZX80. Inoltre l’utente'del 
programma dà un numero negativo, o positivo in valore 
assoluto minore di 256, per innescare la decodifica o la 
codifica. Il messaggio decodificato può essere capito 
solo da chi possiede lo ZX80 e questo programma. 

Le variabili del programma sono: 

A$ per contenere il messaggio; 

T = numero negativo o positivo scelto (— 255 < T < — 1 ) ; 
o (1 < T < 255) 

B = caratteri singoli del messaggio in fase di lavoro, 

R = variabile di comodo. 

Alla fine del programma viene chiesto se si vuol conti¬ 
nuare; per continuare rispondere SI. 

10 REM MESSAGGI SEGRETI 
50 PRINT "MESSAGGI SEGRETI” 

100 PRINT “SCRIVI UN MESSAGGIO” 

110 INPUT A$ 

120 PRINT A$ 

130 PRINT "SCRIVI IL NUMERO — T PER 
DECODIFICARE. +T PER CODIFICARE” 

135 PRINT “T DEVE ESSERE IN VALORE ASSOLUTO 
MINORE DI 256" 

140 INPUT T 
150 PRINT T 
160 RANDOMISE ABS(T) 

170 IF T < 0 THEN PRINT “DE"; 

180 PRINT “CODIFICA MESSAGGIO" 

190 LET R = RND(26) 

200 IF T < 0 THEN LET R = 26 — R 
210 IF A$ = ” “ THEN GO TO 300 
220 LET B = CODE(A$) 

230 LET A$ = TL$(A$) 

240 IF B = 0 THEN GO TO 280 
250 LET B=B+R — 38 
260 LET B=B — 26 x (B/26) 

270 LET B=B+38 
280 PRINT CHR$(B); 

290 GO TO 190 
300 PRINT 

310 PRINT "ALTRO MESSAGGIO?” 

320 INPUT A$ 

330 IF NOT CODE(A$) = 56 THEN GO TO 360 

340 CLS 

350 GO TO 100 

360 PRINT “ARRIVEDERCI” 

370 STOP 




IL GIOCO 
DEI RESTI 


Autore: Dr.ssa R. Bonelli 
Programma utilizzante: 

1 K di memoria 


PENSATE UN NUMERO N compreso tra 1 è 315, ma non 

10 date al calcolatore. 

11 programma vi chiede: - il resto di N/5 

- il resto di N/7 

- il resto di N/9. 

Applicando un algoritmo il programmavi dicequalenu¬ 
mero avete pensato. 

La formula di calcolo è: 

N = 126xR(1)+ 225 x R(2) + 280 x R(3) 

N — N - 315X(N/315) 
dove R(l) sono i 3 resti richiesti. 
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Le variabili del programma sono: 

R(l) 1 = 1,2, 3, per i 3 resti 
A$ per le risposte 
A per il numero calcolato. 

10 REM GIOCO DEI RESTI 
20 PRINT “GIOCO DEi RESTI” 

30 PRINT “PENSA UN NUMERO N COMPRESO TRA 
1 E 315” 

40 PRINT "PREMI (NEW LINE) QUANDO SEI 
PRONTO” 

50 INPUT A$ 

100 DIM R(3) 

200 LET A = 3 

210 FOR I = 1 TO 3 

220 LET A = A + 2 

230 PRINT “DIVIDI N PER”; A 

240 PRINT “SCRIVI IL RESTO” 

250 INPUT R(l) 

260 PRINT R(l) 

270 NEXT I 

300 LET A = 126 * R(l) + 225 * R(2) + 280 * R(3) 
310 LET A = A-315*(A/315) 

320 PRINT “NUMERO PENSATO: N=”; A 
330 PRINT “un altro?” 

340 INPUT A$ 

350 CLS 

360 IF CODE(A$) = 56 THEN GO TO 100 
370 PRINT “ARRIVEDERCI” 

380 STOP 



GOMOKU 


Autore: M. Oliva 
Programma utilizzante: 

4 K di memoria 


Questo è un gioco giapponese che si svolge tra due 
giocatori su una scacchiera (di solito di 19x19caselle). 
Obiettivo di ciascuno di essi è di porre il proprio simbolo 
(uno zero o una crocetta) in un certo numero di caselle 
consecutive orizzontalmente, verticalmenteo diagonal¬ 
mente sulla scacchiera. Vince il giocatore che per primo 
realizza la serie voluta. 

Nella versione presentata, la scacchiera è composta di 
49 caselle (7 righe per sette colonne). Il gioco avviene 
tra un giocatore ed il calcolatore. La prima mossa spetta 
al giocatore il cui simbolo è costituito dal carattere a 
differenza di quello del calcolatore “x”. 

Il numero di simboli consecutivi richiesti per vincere è 
di 5, siano essi posti su una riga, su una colonna o su una 
diagonale. 

È bene comunque precisare che la partita svolta dal 
calcolatore è di tipo difensivo cioè tale da impedire al 
giocatore di realizzare la serie vincente e non di vincere 
la partita. 

Ciò non toglie però al calcolatore la possibilità di scon¬ 
figgere il giocatore o di pareggiare. 

Dopo avere scritto il programma seguendo la procedura 
che più avanti sarà illustrata è possibile dare il comando 
di < RUN >. 

Allora sullo schermo comparirà la scacchiera di gioco le 
cui caselle, inizialmente vuote sonoindicatedal caratte¬ 
re “E”, la scacchiera rimarrà visualizzata continuamente 
nel corso della partita. 

Alla richiesta delle coordinate il giocatore deve intro¬ 
durre quelle relative alla mossa che intende eseguire 
che devono così essere indicate: riga e colonna. Ad 
esempio “23” indica la casella individuata dalla seconda 
riga e dalla terza colonna. Qualora le coordinate inserite 
dal giocatore siano inesatte oppure si riferiscono a ca¬ 
selle già utilizzate viene effettuata una nuova richiesta. 
La mossa del giocatore, così introdotta, viene indicata 
sulla scacchiera dal carattere 

Se questa mossa non è vincente il calcolatore risponde 
opportunamente ponendo in una certa casella libera il 
proprio simbolo “x”. 

Quando o il giocatore o il calcolatore riescono a com¬ 
porre la sequenza di 5 simboli consecutivi il gioco ha 
termine segnalando il vincitore e il numero di mosse che 
sono state necessarie per risolvere la partita. 

La partita termina invece in parità se dopo l’ultima 
mossa del giocatore (la 25 a ) nessuna sequenza vincente 
è stata realizzata, oppure quando alla richiesta delle 
coordinate il giocatore, volendo interrompere la partita, 
introduce il valore “tT (zero). 


J V 
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STRUTTURA 
DEL PROGRAMMA 
E SUO CARICAMENTO 


Il programma che realizza il gioco “Gomoku" ha una 
struttura un poco complessa che deve essere attenta¬ 
mente esaminata prima della sua realizzazione. 

Per prima cosa il programma non tratta la scacchiera 
come un normale vettore. Utilizza invece l’area di me¬ 
moria riservata al video. Infatti il programma, nella pri¬ 
ma fase, visualizza la scacchiera, ciò consente poi di 
riempire e di controllare le caselle direttamente nell’area 
di memoria corrispondente allo schermo video. 

Per far ciò il programma utilizza una breve subroutine la 
quale traduce le coordinate di una casella della scac¬ 
chiera in un indirizzo di memoria nella cui locazione è 
contenuto il carattere grafico visualizzato. 

Tale routine non è altro che una formuletta: 

K=USR (A)+2 * (X AND 15) — 24 * (X/16)+175 

dove X è la coordinata della casella e K è l’indirizzo che 
si vuole determinare. 

In questa formula si nota la presenza della funzione 
USR(A) 

che richiama una routine in linguaggio macchina a par¬ 
tire dalla locazione A (A=16428). 

La routine è la seguente, con relativa codifica; 


LD HL , (16396) 

42 


12 


64 

RET 

201 


Essa fa si che dopo la sua esecuzione si possa disporre 
del contenuto del puntatore D-File (di indirizzo 16396 e 
16397) che indica l’indirizzo del primo dei byte di memo¬ 
ria componenti l’area video. 

Più avanti vedremo come si introdurrà questa routine 
assembler. 

La seconda fase consiste nella introduzione delle coor¬ 
dinate della mossa del giocatore e nella sua analisi di 
validità. 

Ipotizzata corretta la mossa del giocatore, subentra la 
fase di controllo di essa. 

Spiegare quale è l’algoritmo che consente di individuare 
se la mossa è vincente e di indicare l’eventuale risposta 
da parte del calcolatore è assai complesso per questo si 
rimanda al listato e al diagramma a blocchi del pro¬ 
gramma. 

In ogni caso in questa fase vengono utilizzate delle 
costanti di incremento le quali saranno introdotte nella 
fase di realizzazione del programma. 

A seconda del risultato scaturito da questa fase il pro¬ 
gramma finisce se il giocatore ha vinto, si è ritirato o si è 
esaurita la scacchiera, oppure prosegue con la mossa 
del calcolatore. 

Ora si presentano due casi, se la fase precedente ha 
consentito di individuare una casella nella quale il cal¬ 
colatore possa introdurre il proprio simbolo ciò è fatto 
subito, altrimenti le coordinate della sua mossa sono 
determinate mediante l’utilizzo della funzione RND tale 
da generare una mossa causale. 

La mossa così fattaViene anch’essa esaminata per vede¬ 
re se è vincente o meno. 
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Nel primo caso il programma ha termine, nel secondo 
caso si ritorna nella fase di richiesta delle coordinate 
della mossa al giocatore. 

Esaminiamo ora, invece, quale è la procedura da segui¬ 
re per l'esecuzione del programma. 

Si carichi in memoria l'intero programma così come 
appare nel listato. 

Si noterà la presenza, alle linee 1000-1090, di una routine la 
quale consente di inserire nel programma sia il pro¬ 
grammino assembler che le costanti di incremento già 
citate. Più precisamente essa carica nelle locazioni di 
memoria occupate dalla codifica della istruzione: 

100 REM ■■■■■■■■■■■■■■■■ 

sia il programma assembler che le costanti a partire 
dalla locazione il cui indirizzo è 16428. 

Quindi dopo aver caricato in memoria l’intero program¬ 
ma occorre mandare in esecuzione la routine con il 
comando immediato: 


GO TO 1000 

Allora si devono introdurre i valori (nell’ordine di loca¬ 
zione): 


16428 

42 

16429 

12 

16430 

64 

16431 

201 

16432 

9 

16433 

113 

16434 

23 

16435 

1 

16436 

7 

16437 

17 

16438 

119 

16439 

16 

16440 

112 


Una volta completata questa operazione la linea 100 
non è più visualizzabile per cui si deve fare attenzione e 

non dare mai il comando 

LIST 

Se si vuole visualizzare l'intero programma si può utiliz¬ 
zare il comando 


LIST 110 

Se poi erroneamente si dovesse premere il tasto LIST 
occorrerà cancellare la linea 100 riscriverla e mandare 
nuovamente in esecuzione la routine che ha inizio alla 
linea 1000. 

Per questo motivo si consiglia di non cancellare le linee 
1000-1090, che per altro non vengono mai eseguite nel 
corso del programma. 

Volendo, in ultimo, memorizzare su cassetta questo 
programma è possibile cancellare le linee. 1000-1090 in 
quanto lo si può poi ricaricare, in caso di accidentale 
pressione del tasto LIST. 

Descrizione generale del programma: 
la linea 100 contiene il programma assemblere 

le costanti di incremento 

le linee 150-160 traducono le coordinate di una ca¬ 
sella in un indirizzo di memoria; 
le linee 200-340 visualizzano la scacchiera, una in¬ 
testazione e la richiesta delle coor¬ 
dinate; 
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GOMOKU 



le linee 400-490 


le linee 500-740 


le linee 800-840 


le linee 850-970 


le linee 1000-1090 


consentono l’introduzione delle co¬ 
ordinate del giocatore e ne control¬ 
lano la correttezza; 
esaminano la mossa del giocatore e 
del calcolatore indicando l'even¬ 
tuale vittoria o suggerendo al calco¬ 
latore la mossa di risposta; 
generano l'eventuale mossa casua¬ 
le del calcolatore; 
eseguono la visualizzazione del ri¬ 
sultato finale della partita; 
contengono la routine mandata in 
esecuzione appositamente per ca¬ 
ricare il programma in linguaggio 
assembler e le costanti di incre¬ 
mento. 


Principali variabili usate 

A indirizzo dal quale introdurre il pro¬ 

grammino assembler e le costanti; 

X coordinate mossa; 

K indirizzo di memoria relativo ad una co¬ 

ordinata; 

T contatore mosse; 

V,R,S,U,W, variabili analisi mossa; 

O, I, J variabili analisi mossa. 

Codici caratteri grafici utilizzati: 

B =6, ■ = 9, x =61 

100 REM ■■■■■■■■■■■■■■■■ 

110 LET A = 16428 
120 GO TO 200 

150 LET K=USR (A)+2 * (X AND 15) - 24 * (X/16) 
+175 

160 RETURN 
200 FOR K = 1 TO 7 
210 LET J = 8- K 
220 PRINT J, 

230 FOR I = 1 TO 7 
240 PRINT "EA"; 

250 NEXT I 
260 PRINT 
270 PRINT 
280 NEXT K 
290 PRINT, 


T / STAMPO . 7 , - v 

-W"HO VINTO IO IN" /—M STOP ) 
/ T" MOSSE-FINE"/ >- ' 


300 FOR K = 1 TO 7 
310 PRINT K; "A”; 

320 NEXT K 
330 PRINT 
332 PRINT 

334 PRINT “****”. *************** .*” 

336 PRINT ,“*** GOMOKU ***" 

337 PRINT -********************************" 

338 PRINT 

340 PRINT “SCRIVI LE TUE COORDINATE:" 
345 LET T = 0 


io 



































400 INPUT X 

410 IF X = 0 THEN GO TO 900 
415 IF X < 0 THEN GO TO 400 
420 LET X = X + 6 * (X/10) 

430 LET X = X AND 119 

440 IFX/16 = 0OR (X AND 7) = 0THEN GO TO 400 
450 GO SUB 150 

460 IF PEEK (K) > 6 THEN GO TO 400 

470 POKE K, 9 

480 LET V = 77 

484 LET R = 9 

488 LET S = 61 

490 LET T = T + 1 

500 LET J = 0 

510 LET U =r X 

520 FOR L = A + 4TOA-f12 
530 LET I =z 0 



STOP 


( STOP ^ 
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540 LET 0 = 0 

550 IF 2 * (L/2)< L THEN LET O = — 1 
560 IF O THEN LET X = U 
570 LET X = X + PEEK (L) 

580 LET X = X AND 119 
590 LET I = 1+1 

600 IF X/16 = 0 OR (X AND 15) = 0THEN GO TO 
650 

610 GO SUB 150 

620 IF PEEK (K) = R THEN GO TO 570 

630 IF PEEK (K) = S AND O THEN GO TO 700 

640 IF O THEN LET V = X 

650 IF O THEN GO TO 700 

660 IF l>J THEN LET J = I 

670 IF NOT I = J THEN GO TO 700 

680 LET W = X 

690 IF NOT PEEK (K) = 6 THEN LET W = V 
700 NEXT L 

702 IF R = 61 THEN GO TO 836 

710 IF J<3 AND T< 25 THEN GO TO 800 

720 IF J>5 THEN GO TO 850 

725 IF T = 25 THEN GO TO 900 

730 LET X = W 

740 GO TO 802 

800 LET X = 16 + RND (7) + RND (7) 

802 LET R = 61 
804 LET S = 9 
810 GO SUB 150 

820 IF NOT PEEK (K) = 6 THEN GO TO 800 

830 POKE K, 61 

832 IF R = 9 THEN GO TO 400 

834 GO TO 500 

836 IF J>5 THEN GO TO 950 

840 GO TO 400 

850 PRINT 

860 PRINT “HAI VINTO TU IN”;T; “MOSSE - 
FINE” 

870 STOP 
900 PRINT 

905 IF T = 0 THEN PRINT “NESSUNA MOSSA 
ESEGUITA - FINE” 

910 IFT = 1 THEN PRINT“PARI DOPO 1 MOSSA 
- FINE” 

920 IF T>1 AND T<25 THEN PRINT “PARI DOPO 
“;T;” MOSSE - FINE” 

930 IF T = 25 THEN PRINT “PARI ALLA FINE DEL 
GIOCO” 

940 STOP 
950 PRINT 

960 PRINT “HO VINTO IO IN “;T; “MOSSE-FINE” 
970 STOP 

1000 PRINT “GOMOKU - INIZIO INPUT CO¬ 
STANTI” 


1001 PRINT 

1002 PRINT 

1003 PRINT "LOCAZIONE”, “COSTANTE” 

1004 PRINT 

1008 LET A - 16428 
1010 FOR I = 0TO 12 
1020 PRINT A + l„ 

1030 INPUT J 
1040 POKE A + I, J 
1060 PRINT PEEK (A + I) 

1060 NEXT I 
1070 PRINT 
1075 PRINT 

1080 PRINT “GOMOKU - FINE INPUT COSTANTI” 
1090 STOP 
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LIFE 

r - 
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Autore: A. Napoletano 

Programma utilizzante: 

4 K di memoria 


Questa è una versione molto piccola e necessariamente 
limitata del famoso programma LIFE, ma nonostante le 
sue limitazioni esso rimane ancora molto interessante. 
Il programma simula una coltura di cellule, la sopravvi¬ 
venza di ogni cellula dipende da quante cellule essa ha 
vicino. 

Troppe cellule vicine implicano una diminuzione del 
cibo e quindi la cellula muore; troppo pochi vicini impli¬ 
cano la mancanza di supporto quindi la cellula non si 
riproduce. 

La regola che governa la nascita di una nuova cellula è 
che essa viene generata quando in un suo intorno essa 
ha esattamente tre cellule vicine, la cellula muore quan¬ 
do ha meno di 2 o più di tre cellule vicine. 

La popolazione viene inizialmente generata a caso. 

Il programma è abbastanza lento, perciò siate pazienti. 


■ Cellula □ Spazio 


100 

DIM A (63) 


105 

LET B=0 


106 

LET E=0 


107 

LET T=0 


110 

FOR 1=1 TO 63 


120 

LET A(l) = 128 * (RND(2)-1) 


125 

IF A(l)=128 THEN LET B=B+1 


130 

NEXT 1 


131 

PRINT" **** LIFE ****’’ 


132 

PRINT 


133 

PRINT 


134 

PRINT "CELLULE NELLA COLTURA : ’ 

’ ; B 

135 

GOTO 142 


136 

PRINT.LIFE ****’’ 


137 

PRINT 


138 

PRINT 


139 

PRINT “NUOVE NATE : ” ; E 


140 

PRINT 


141 

PRINT “CELLULE MORTE : ” ; T 


142 

FOR 1=1 TO 3 


143 

PRINT 


144 

NEXT 1 


145 

LET G=0 


146 

LET E=0 


147 

LET T=0 


200 

FOR L=0 TO 8 
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PRINT "AAAAAAAAAA"; 

POR J=1 TO 7 
LET l=J+7*L 
PRINT CHR$ (A(I)); 

NEXT J 
PRINT 
NEXT L 
PRINT 
PRINT 

PRINT “PREMI <N/L> PER CONTINUARE" 
INPUT A $ 

IF A $ = “A" THEN GOTO 290 

CLS 

STOP 

CLS 

FOR I = 9 TO 55 
LET X = 0 

IF ((l+1)AND 7) = 0 THEN GOTO 350 
LET X = (A (1+1 )> 127) 

IF ((l-l)AND 7) = 0 THEN GOTO 360 
LET X = X + (A( 1-1 )> 127) 

FOR J = 7 TO 9 
FOR R = -1 TO 1 
IF R = 0 THEN GOTO 420 
LET K = I + R'J 

IF (K AND 7) = 0 THEN GOTO 420 
LET X—X + (A(K)> 127) 

NEXT R 
NEXT J 

LET A (I) = A (I) -X 
NEXT I 

FOR 1=1 TO 63 

IF A (l)=3 OR A (l)=130 OR A (l)=131 THEN 

GOTO 500 

LET A (l)=0 

LET T= T+1 

GOTO 510 

LET A (l)=128 

LET E=E+1 

NEXT I 

FOR 1=1 TO 63 

IF A (l)=0 THEN LET G=G+1 

NEXT I 

IF G>58 THEN GOTO 530 

GOTO 136 

CLS 

PRINT.LIFE. 

PRINT 

PRINT 

PRINT 

PRINT “LE CELLULE SI SONO 
AUTODISTRUTTE” 

PRINT 

PRINT “ALTRA SIMULAZIONE <S/N>” 
INPUT B $ 

IF B $ = "S” THEN CLS 
IF B $ =“S” THEN GOTO 100 
GOTO 287 


205 

210 

220 

230 

240 

250 

260 

265 

266 

270 

280 

285 

287 

288 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

460 

465 

470 

480 

485 

490 

500 

505 

510 

512 

513 

514 

515 

520 

530 

535 

536 

537 

538 

539 

540 

541 

545 

546 

547 

550 
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V_ 

Autore: E. Vighi 
Programma utilizzante: 

4 K di memoria 

/- 


BATTAGLIA 

NAVALE 


Si tratta del notissimo gioco in cui si cerca di affondare 
la flotta nemica; che inizialmente sembra solo un passa¬ 
tempo ma che può diventare appassionante quando i 
giocatori si trovano in una situazione critica, sia perchè 
sono vicini alla vittoria, sia perchè la loro flotta è stata 
decimata e sono quindi nella condizione di dover salva¬ 
re le ultime navi rimaste. 

Nella versione presentata, il giocatore e l’elaboratore 
dispongono entrambi di una scacchiera con 64 caselle, 
suddivisa in 8 righe ed 8 colonne. Sulla scacchiera ven¬ 
gono disposte 8 navi, nelle posizioni che sembrano of¬ 
frire la maggiore sicurezza, cioè dove si pensa che l’av¬ 
versario non sparerà. 

Si spara un colpo alla volta alternandosi: vince chi riesce 
a distruggere per primo la flotta avversaria, altrimenti, se 
non si vuole continuare fino a quel punto, il vincitore è 
chi ha colpito più navi avversarie; è chiaro che se non si 
arriva alla fine del gioco è possibile che si verifichi 
anche una situazione di parità, in cui entrambi i giocato¬ 
ri hanno colpito lo stesso numero di navi. 

Per sparare un colpo si devono indicare le coordinate 
(numero di riga e numero di colonna) della posizione 
che si intende colpire; l’avversario verificherà quale del¬ 
le seguenti situazioni è accaduta: 

— colpo a vuoto: in quella posizione non c’era una nave 

— nave colpita e affondata 

— colpo già sparato in quella posizione 

in quest’ultimo caso, poiché non è consentito sparare su 
una casella già colpita in precedenza, si deve scegliere 
un’altra posizione non ancora colpita fino a quel punto 
su cui sparare, cioè si ripete il colpo. 


PROGRAMMA 

Le due scacchiere, una per l’elaboratore ed una per il 
giocatore, sono trattate sotto forma di vettori a 64 posi¬ 
zioni o elementi, che inizialmente vengono riempiti con 
il codice del carattere grafico " H ”. Questo carattere 
indica una posizione in cui non è presente una nave e 
nella quale non si è ancora sparato. 

Una volta inizializzati i due vettori, si inseriscono in 
ciascuno di essi 8 navi; le navi del giocatore sono poste 
nelle posizioni da lui scelte, mentre quelle del calcolato¬ 
re vengono inserite mediante la funzione di casualità 
RND. 

In caso di errore nella scelta della posizione delle navi, 
sia perchè si tenta di mettere due navi nella stessa casel¬ 
la, sia perchè le coordinate sono errate, il programma 
ripete l’operazione. 

Il numero di navi è fissato ad 8; se lo si volesse modicare 
basterebbe cambiare la linea 90, inserendo come limite 
superiore del ciclo il numero di navi voluto. 

A questo punto il giocatore spara un colpo, inserendole 
coordinate della posizione che vuole colpire. 

Se inserisce il valore zero, il programma esegue la fase 
finale in cui si stabilisce il vincitore. Se le coordinate 
sono errate o la posizione indicata è già stata colpita, si 
ripete l’operazione. 





































































Se non c'è una nave nella posizione indicata, si inserisce 
il carattere 0 per indicare che in quella casella si è già 
sparato; mentre se c’è una nave si inserisce il codice del 
carattere "A”, per indicare la presenza di una nave affon¬ 
data, e si incrementa il contatore delle navi colpite dal 
giocatore. Se si sono colpite tutte le navi deH'avversario, 
entra in esecuzione la fase finale del programma. 
Dopo ogni colpo del giocatore, le stesse operazioni si 
ripetono per il calcolatore, che spara i suoi colpi sfrut¬ 
tando la funzione RND. 


Poiché il giocatore vede la scacchiera come una matrice 
8x8, la posizione delle navi che inserisce e la posizione 
dei colpi che spara sono una coppia di numeri compresi 
fra 1 ed 8 

Detta C questa coppia di numeri deve essere 11 ^ 

88 . 
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Per il calcolatore, però, la scacchiera è un vettore di 64 
elementi perciò è necessaria una conversione di C in un 
indice per il vettore citato. 

Ciò è realizzato mediante la formula: 


Le linee 40 - 70 


le linee 90 - 200 


J = ((C/10)-1) *8 + C-(C/10)*10 

Come si vede, la somma di ((C/10)-1)*8, cheè il numero 
di posizioni presenti nelle righe che precedono quella 
valuta, e di C-(C/10)*10, che è la posizione della casella 
voluta aM’interno della riga considerata ci dà il numero 
d’ordine della casella in questione all’interno del vettore 
suddetto. 

realizzano il caricamento ini¬ 
ziale dei vettori con il codice 
del carattere “ E", che è 6 
servono all’inserimento delle 
navi 

le linee 220 - 330 gestiscono il colpo sparato dal 
giocatore 

le linee 380 - 470 gestiscono il colpo sparato dal 
calcolatore 

La subroutine che inizia alla linea 1000 visualizza la 
scacchiera del giocatore, quella che inizia alla linea 
2000 visualizza la scacchiera del calcolatore. 

La subroutine che inizia alla linea 3000 gestisce la fine 
del gioco, e non è una vera e propria subroutine, poiché 
è richiamata con un GOTO e da esso non si torna ad un 
punto del programma, ma si termina l’esecuzione. 

Le linee dalla 4000 in poi costituiscono una subroutine 
che visualizza l’intestazione del programma. 


Repertorio 

N (64) vettore contenente la scacchiera del giocatore 
Z (64) vettore contenente la scacchiera del calcola¬ 
tore 

K contatore navi colpite dal giocatore 

I contatore navi colpite dal calcolatore 

F flag usato nella routine di visualizzazione del 

vettore Z; se F=1 si visualizza il vettore in 
forma di scacchiera così com’è, altrimenti se 
F—0 al posto delle navi nella scacchiera del 
calcolatore si visualizzano dei punti per non 
far conoscere al giocatore avversario la posi¬ 
zione delle navi ancora da colpire del calcola¬ 
tore 

B $ variabile di comodo usata nel programma per 
consentire al gioco di ritardare opportuna¬ 
mente le visualizzazioni successive. 


Tabella codici simboli 
“ 0 ’’ corrisponde 28 


“E” 


corrisponde 6 
corrisponde 9 


‘A” corrisponde 38 


colpo a vuoto, posizione già 
colpita 

posizione libera ancora da 
colpire 

posizione occupata da una 
nave 

nave affondata 


È importante ricordare che per terminare l’esecuzione 
del programma è sufficiente inserire la coordinata zero 
quando si ha la corrispondente richiesta da parte del 
calcolatore, invece di inserire un numero compreso fra 
11 e 88; se non si vuole interrompere il programma, esso 
terminerà automaticamente non appena una delle due 
flotte sarà stata affondata completamente. 


10 

GO SUB 4000 

15 

LET K=0 

16 

LET 1=0 

17 

LET F=0 

20 

DIM N (64) 

30 

DIM Z (64) 

40 

FOR T=1 TO 64 

50 

LET N (T)=6 



Sub stampa 
vettore N 
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60 LET Z (T)=6 
70 NEXTT 
80 GO SUB 1000 
90 FOR T=1 TO 8 
100 PRINT “COORDINATE NAVE : ” ; 

110 INPUT C 

120 IF C<11 OR 088 THEN GOTO 110 

130 LET J=((C/10)-1)*8+C- (C/10)*10 

140 IF NOT N(J)=6 THEN GO TO 110 

150 LET N(J)= 9 

160 GO SUB 4000 

165 GO SUB 1000 

170 LETJ=RND(64) 

180 IF NOT Z(J)=6 THEN GO TO 170 

190 LETZ(J)=9 

200 NEXT T 

202 GO SUB 4000 

204 GO SUB 1000 

206 PRINT “PREMI <N/L > PER SPARARE" 

208 INPUT B $ 

210 GO SUB 4000 

215 GO SUB 2000 

220 PRINT “COORDINATE COLPO : ” ; 

230 INPUT C 

235 IF C = 0 THEN GO TO 3000 

240 IF C <11 OR C >88 THEN GO TO 230 

260 LET J= (<C/10)-1) *8 +C- (C/10) *10 

270 IF Z(J)= 28 OR Z(J)=38 THEN GO TO 230 

280 IF NOT Z(J)=6 THEN GO TO 310 

290 LET Z(J)=28 

300 GO TO 340 

310 LETZ(J)=38 

320 LET K=K + 1 

330 IF K=8 THEN GO TO 3000 

340 GO SUB 4000 

350 PRINT “PREMI <N/L > PER CONTINUARE” 
360 INPUT B $ 

370 GO SUB 4000 

375 GO SUB 1000 

380 PRINT “ <N/L > PER FARMI SPARARE” 

390 INPUT B $ 

400 LET C=RND (64) 

410 IF N(C)=28 OR N(C)=38 THEN GO TO 400 

420 IF NOT N(C)=6 THEN GO TO 450 

430 LET N(C)=28 

440 GO TO 480 

450 LET N(C)=38 

460 LET 1=1 +1 

470 IF 1=8 THEN GO TO 3000 

480 GO SUB 4000 

485 GO SUB 1000 

490 PRINT "PREMI <N/L > PER SPARARE” 

500 INPUT B $ 

510 GOTO 210 

1000 PRINT “ECCO LA TUA SCACCHIERA : ” 

1010 PRINT 

1080 FOR S=1 TO 8 

1090 PRINT S, 

1100 FOR R= (S-1) *8 TO S*8-1 

1110 PRINT CHR$(N(R)); “A”; 

1120 NEXT R 

1130 PRINT 

1140 PRINT 

1150 NEXT S 

1160 PRINT, 

1170 FOR S=1 TO 8 

1180 PRINT S; “A”; 

1190 NEXT S 

1200 PRINT 

1210 PRINT 


1220 RETURN 

2000 PRINT “ECCO LA MIA SCACCHIERA : ” 

2010 PRINT 

2080 FOR S=1 TO 8 

2090 PRINT S, 

2100 FOR R=(S-1)*8 TO S*8-1 

2110 IF Z(R)=9 AND F=0 THEN PRINT “EAA"; 

2115 IF NOT Z(R)=9 THEN PRINT CHR$(Z(R)); 
“A"; 

2118 IF F=1 AND Z(R)=9 THEN PRINT CHR$ 
(Z(R)>; “A”; 

2120 NEXT R 

2130 PRINT 

2140 PRINT 

2150 NEXT S 

2160 PRINT, 

2170 FOR S=1 TO 8 

2180 PRINT S; “A"; 

2190 NEXT S 

2200 PRINT 

2210 PRINT 

2220 RETURN 

3000 GO SUB 4000 

3005 LET F=1 

3010 IF NOT K=8 THEN GO TO 3080 

3020 PRINT “*** HAI VINTO. 

3030 PRINT 

3040 PRINT “HAI DISTRUTTO LA MIA FLOTTA” 
3050 PRINT 

3052 PRINT 

3054 PRINT “ <N/L > PER VEDERE LE MIE NAVI” 
3056 INPUT B$ 

3058 GO SUB 4000 

3060 GO SUB 2000 

3070 STOP 

3080 IF NOT 1=8 THEN GO TO 3150 

3090 PRINT “*** HO VINTO. 

3100 PRINT 

3110 PRINT “HO DISTRUTTO LA TUA FLOTTA” 
3120 PRINT 

3122 PRINT 

3124 PRINT “ <N/L > PER VEDERE LE TUE NAVI" 

3126 INPUT B$ 

3128 GO SUB 4000 

3130 GO SUB 1000 

3140 STOP 

3150 GO SUB 4000 

3160 PRINT 

3170 IF K>l THEN PRINT “HO COLPITO MENO 
NAVI DI TE” 

3180 IF K<l THEN PRINT “HAI COLPITO MENO 
NAVI DI ME” 

3190 IF K=l THEN PRINT “SIAMO PARI” 

3200 PRINT 

3210 PRINT “ <N/L > PER VEDERE LE MIE NAVI" 

3225 INPUT B$ 

3228 GO SUB 4000 

3240 GO SUB 2000 

3250 PRINT “ <N/L > PER VEDERE LE TUE NAVI” 

3270 INPUT B$ 

3275 GO SUB 4000 

3280 GO SUB 1000 

3290 PRINT “*** CIAO. 

3300 STOP 

4000 CLS 

4010 PRINT “*** BATTAGLIA NAVALE ***” 

4020 PRINT 

4030 RETURN 
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BLACK JACK 


Autore: E. Vighl 
Programma utilizzante: 

4 K di memoria 


Regole di gioco 


Si tratta di un gioco di carte, che si 
realizza con un mazzo di 52 carte da poker. A ciascuna 
carta è assegnato un valore, secondo lo schema se¬ 
guente: 

le carte da 2 a 10 valgono il numero indicato; le figure, 
cioè il fante, la donna ed il re, valgono 10; l’asso vale 
normalmente 11, ma se considerandolo con questo va¬ 
lore si supera il totale di 21, allora gli si assegna il valore 
1 . 


Un giocatore gioca contro il banco: vince chi, pren¬ 
dendo quante carte vuole, arriva più vicino al totale di 21 
senza superarlo; se si supera il 21 si “sballa”, cioè si 
perde. 

Esistono due versioni del black jack: 

1 ) il giocatore può chiedere quante carte vuole, il ban¬ 
co però deve raggiungere almeno un totale di 17 
punti. 

Per esempio, se il giocatore ha solo 13 punti ed il 
banco ne ha 14, il banco deve prendere un’altra 
carta, rischiando di sballare. 

Se invece il giocatore ha 19 punti ed il banco per 
esempio ne ha 18, allora il banco non prende più 
carte ed il giocatore vince. 

2) il giocatore può chiedere quante carte vuole, il ban¬ 
co continua a chiedere carte finché non ha supera¬ 
to il totale del giocatore oppure ha sballato. 

Per esempio, se il gicatore ha solo 13 punti ed il 
banco ne ha 14, il banco ha vinto e non chiede altre 
carte. Se invece il giocatore ha 19 punti ed il banco 
per esempio ne ha 18, allora il banco prende un'al¬ 
tra carta per tentare di realizzare un totale compre¬ 
so fra 19 e 21 e quindi pareggiare o vincere, anche 
se prendendo un’altra carta rischia di “sballare". 

Il programma non segue la prima versione presentata, 
ma se si volesse giocare secondo le regole esposte al 
punto 1) basterebbe modificare le linee 621 e 622 in: 

621 IF I = 0 THEN GO TO 530 

622 GO TO 670 

Inizialmente il giocatore dispone di un capitale di 100 
L. 

Ad ogni modo scommette una somma, che non può 
essere maggiore del capitale posseduto, né può essere 
negativa. Se la somma scomessa è uguale a zero, il 
programma termina. 

Per quanto riguarda le vincite si ha: 

1 ) Si vince il doppio della posta, se si realizza 21 con 2 
carte ed il banco non realizza anch’esso 21. 

2) Si vince la posta scommessa se si realizzano più 
punti del banco o se il banco sballa. 

3) Non si vince e non si perde nulla se si realizzano gli 
stessi punti del banco. 

4) Si perde la posta scommesa se il banco realizza più 
punti del giocatore senza sballare, oppure se si 
sballa. 

i -- 



PROGRAMMA 


Il programma usa un metodo particolare per memori- 
zare e mischiare il mazzo di carte: le 52 carte sono 
immagazzinate in un’istruzione REM all’inizio del pro¬ 
gramma, con le seguenti convenzioni: 

i numeri da 2 a 9 per le corrispondenti carte 

D per il 10 (in tal modo è sufficiente un solo carattere 
anziché due) 

J per il fante, 

Q per la donna, 

K per il re, 

A per l’asso. 

Le linee 310-360 del programma sono usate per "me¬ 
scolare" il mazzo, scambiando una carta con un’altra 
scelta a caso nel mazzo. Dopo ogni partita, alla linea 100 
del programma potremo vedere l’ultima versione del 
mazzo mescolando, perché si usano le istruzioni PEEK 
e POKE che modificano fisicamente il contenuto dello 
statement 100. Si noti la brevità e la compatezza del 
metodo usato. 
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Ad ogni pescata, il totale del giocatore e quello del 
calcolatore vengono aggiornati e visualizzati. 

Si noti che alla richiesta: 

CARTA: SI/NO 

si può rispondere, nel caso affermativo, sia con una S 
che un altro carattere qualsiasi, anche solo premendo il 
tasto NEW LINE; se invece non si desiderano altre carte 
è necessario introdurre il carattere N. 

Il programma non può girare In 1 K di memoria: se si 
volesse ridurne le dimensioni per adottarlo in 1 K baste¬ 
rebbe eliminare quasi totalmente le stampe parziali. 

I commenti sono molto concisi, ma volendo si potreb¬ 
be rendere più gradevole il programma con delle stam¬ 
pe esplicative. 


PRINCIPALI VARIABILI USATE 

N(0) numero di carte chieste dal giocatore (TUE) 
N(1) numero di carte prese dal banco (ZX80) 

N(2) valore attuale della mano del giocatore 
N(3) valore attuale della mano del banco 
A(0) numero degli assi di cui si considera come valore 
l’il per il giocatore 

A(1) numero degli assi di cui si considera come valore 
l’il per il banco 

M somma a disposizione del giocatore nella mano 
corrente 

B somma scommessa nella mano corrente 

V coefficiente di vincita/perdita. 


PROGRAMMA 


Linee 100-140 
150-180 
200-300 
310-360 
370-450 
500-700 

760-820 


inizializzazione variabili 

calcolo del nuovo valore della mano 

routine di visualizzazione risultati 

mischiamo il mazzo di carte 

fase inziale nuova partita 

corpo del programma: gestione della 

mano 

definizione della vincita/perdita e vi¬ 
sualizzazione risultati. 



100 

REM 23456789DJQKA23456789DJQKA2345 




6789 DJ QKA234567689 DJ Q K A 



110 

DIM N(3) 



115 

DIM A(1) 



120 

LET S = 16427 

230 

LET x = PEEK (S + L) 

130 

LET M = 100 

240 

PRINT CHR$ (x); “A”; 

140 

GOTO 310 

250 

NEXT L 

150 

LET X = PEEK (S + 6 *1 + N(l)) - 28 

255 

IF N(0) > 3 THEN PRINT, 

160 

LET N(l+2) = N( 1 +2) - 10*(x > 10) - x*(x < 10) - 11 *(x = 10) 

256 

IF NOT N(0) > 3 THEN PRINT, 

170 

LET A(l) = A(l) - (x - 10) 

270 

NEXT K 

180 

RETURN 

275 

PRINT 

200 

PRINT "HAI SCOMMESSO L”; B 

276 

PRINT 

201 

PRINT 

280 

PRINT “TOTALE:"A” 

202 

PRINT 

290 

PRINT N(2)„ N(3) 

203 

PRINT “TUE”,, “ZX80” 

FOR K =0fTO 1 

295 

PRINT 

210 

300 

RETURN 

220 

FOR L = 6*K + 1 TO 6*K + N(K) 

310 

FOR 1 = 0 TO 51 


20 




































320 LET J = RND (52) - 1 
330 LET X = PEEK (S + J) 

340 POKE S-f-J, PEEK (S+l) 

350 POKE S+l, X 
360 NEXT I 
370 FOR 1=0 TO 1 
380 LET N(l) = 1 
390 LET N(l+2) = 0 
400 LET A(I) = 0 
410 GO SUB 150 
420 NEXT I 

426 PRINT 

427 PRINT 

430 PRINT “SCOMMETTI: HAI L.”; M 

440 INPUT B 

441 IF NOT B=0 THEN GO TO 445 

442 CLS 

443 PRINT “TI SONO RIMASTE”; M; 

“L. - CIAO” 

444 STOP 

445 IF B>M OR B<0 THEN GO TO 440 
450 CLS 

500 FOR 1=0 TO 1 
510 LET V = 2*1-1 
530 GO SUB 200 
540 PRINT 

542 IF 1=0 THEN PRINT “CARTA: S/N ?” 

550 IF I = 1 THEN PRINT "PREMI < NEW LINE >’ 
570 INPUT 1$ 

580 CLS 

590 IF CODE (1$) = 51 THEN GO TO 700 
600 LET N(l) = N(l) + 1 
610 GO SUB 150 

620 IF NOT N(l + 2) < 22 THEN GO TO 623 

621 IF N(3) < N(2) OR 1=0 THEN GO TO 530 

622 GO TO 750 

623 IF NOT A(l) = 0 THEN GO TO 640 

624 GO SUB 200 

625 PRINT “SBALLATO” 

630 GO TO 800 

640 LET A(I) = A(l) - 1 

650 LET N(l + 2) = N(l + 2) - 10 

670 IF I = 0 OR N(l + 2) < 17 THEN GO TO 530 

700 NEXT I 

750 GO SUB 200 

760 LET V=-1 

765 IF N(2) = N(3) THEN LET V=0 
770 IF N(2) > N(3) THEN LET V=1 
780 IF (N(2) = 21 AND N(0) = 2 AND N(2) > N(3)) 
THEN LET V=2 
800 LET M = M + V * B 

810 IF M < 1 THEN PRINT "HAI PERSO TUTTO” 

815 IF M < 1 THEN STOP 

816 IF V = 1 THEN PRINT “HAI VINTO L:”; B 

817 IF V = 0 THEN PRINT “PARI” 

818 IF V = — 1 THEN PRINT "HAI PERSO L:”; B 

819 IF V = 2 THEN PRINT "HAI VINTO L:”; 2 * B 

820 GO TO 810. 
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ROUTINE 

ASSEMBLER 


N 



SI prevedono delle stampe di spaziatura e di Interlinea adatte. 
Se X — 10, la carta * un Asso 
se X > 10, la carta è una tra le seguenti: J, Q, K 
se X < 10, la carta è una delle restanti. 


V. 


r 


> 

Autore: M. Oliva 
Programma utilizzante: 

J 4 K di memoria 


Si tratta di un programma didattico che consente di 
scrivere, di provare e di verificare delle semplici routine 
in linguaggio assembler. 

Le funzioni che esso è in grado di soddisfare sono 
essenzialmente tre: 

1 ) Scrittura di locazioni di memoria consecutive, byte 
per byte, a partire da un indirizzo specifico: 

2) Lettura di locazioni di memoria consecutive, byte 
per byte, a partire da un indirizzo indicato, con la 
possibilità di correggere il contenuto: 

3) Esecuzione della routine caricata in memoria a par¬ 
tire da un indirizzo specificato, con la visualizzazio¬ 
ne del risultato finale. 

Ognuna di queste fasi è svolta consecutivamente se 
aM'appropriata richiesta si risponde “S” o si preme il 
tasto <NEW LINE>, mentre viene saltato se si risponde 

"N” 


PROGRAMMA 

La struttura del programma segue fedelmente la logi¬ 
ca del funzionamento, già illustrato. 

Inizialmente, dopo la chiamata alla subroutine che 
visualizza l’intestazione il programma provvede a porre 
la variabile A uguale a un valore pari all'indirizzo limite 
sotto il quale il programma non deve consentire la scrit¬ 
tura o la correzione delle locazioni di memoria. 

Nella prima fase il programma richiede se si intende 
scrivere in memoria. Se la risposta è “N” si salta alla fase 
successiva altrimenti si procede. In questo caso il pro¬ 
gramma richiede l'indirizzo di partenza dal quale inco¬ 
minciare il caricamento, verificando che esso non sia 
minore di A. Dopo il programma provvedere a richiedere 
il contenuto delle locazioni di memoria. Il valore che si 
deve introdurre deve variare da 0 (zero) a 255. Qualora 
esso fosse uguale a -1 la sequenza di caricamento si 
interrompe ed il controllo passa alla fase successiva. Al 
contrario il valore inserito è posto nella locazione pre¬ 
scelta mediante l’istruzione POKE, dopo di che, avendo 
incrementato di 1 l'indirizzo si ricicla. 

Nella seconda fase il programma chiede se si desidera 
procedere alla visualizzazione della memoria. Se la ri¬ 
sposta è “N” si salta alla fase successiva altrimenti il 
programma richiede l’indirizzo dal quale iniziare la vi¬ 
sualizzazione. In questo caso esso può essere minore di 
A anche se ciò non consentirà di modificare il contento. 
Comunque l’indirizzo prescelto minimo è 16384, essen¬ 
do questo l'indirizzo più basso della memoria. 

Alla visualizzazione dell’indirizzo e del relativo conte¬ 
nuto il programma richiede di rispondere<NEWLINE> 
se si vuole vedere il contenuto del byte successivo < C > 
per correggere se è consentito e <U> per uscire. 

La correzione comporta l'inserimento del nuovo valo¬ 
re e dei relativi controlli. 

L'uscita consente invece di interrompere la serie di 
visualizzazione e correzioni e trasferisce il controllo alla 


y v. 
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prossima fase. Tutte le letture in memoria sono effettua¬ 
te per mezzo dell’istruzione PEEK. 

Nella terza fase il programma chiede se si desidera 
procedere all’esecuzione della routine assembler cari¬ 
cata. Se la risposta è “N" il programma chiede se si vuole 
tornare all’inizio del programma. Se la risposta è ancora 
"N” il programma ha termine, diversamente si torna 
nuovamente alla prima fase. 

Qualora invece la prima risposta indica che si deve 
eseguire la routine. Il programma richiede quale deve 
essere l’indirizzo di partenza. Se esso non è minore di A 
la routine è svolta per mezzo della linea 

640 LET X = USR (P) 

dove P è l’indirizzo dal quale inizia la routine ed X 
conterrà, alla fine dell'esecuzione, il valore assunto dal¬ 
la coppia di registri HL. 

Tale valore sarà poi visualizzato dal programma prima 
di chiedere se si intende concludere così il programma o 
se si vuole ritornare alla prima fase. 

Come abbiamo già detto, il programma non consente la 
scrittura e la correzione di locazioni di memoria il cui 
indirizzo risulti minore del valore limite A. Ciò perché 
altrimenti si potrebbe modificare il contenuto di bytesdi 
memoria occupati dal programma stesso. È evidente 
che quindi se la routine assembler fosse sbagliata, la 
sua esecuzione potrebbe causare la perdita del pro¬ 
gramma dalla memoria. Si consiglia quindi, oltre alla 
naturale attenzione circa il programma assembler, di 
salvare il programma su una casetta prima della sua 
esecuzione. 

le linee 10-150 eseguono il caricamento in memoria 
di byte singoli 

le linee 200-470 eseguono la lettura della memoria e 
l’eventuale correzione 

le linee 500-860 consentono l’esecuzione della routi¬ 
ne assembler caricata 

le linee 1000-1040contengono la subroutine che visua¬ 
lizza l’intestazione 


PRINCIPALI VARIABILI 
UTILIZZATE 


A contiene l’indirizzo limite sotto il quale il pro¬ 
gramma non consente la scrittura o la correzione in 
memoria 

B$ stringa per le risposte alle diverse domande. 

I locazione dal quale iniziare una delle procedure (in 
input) 

L contenuto locazione (in input) 

P indirizzo dal quale si vuole eseguire la routine as¬ 
sembler 

X valore finale della coppia di registri HL dopo l’ese¬ 
cuzione della routine assembler. 

Diamo ora come esempio, quattro semplici routine 
assembler da provare a verificare. 

1) Routine trasferimento byte 

Questa routine esegue il trasferimento delle locazioni 
di memoria a partire da quella di indirizzo 18500 nelle 
locazioni a partire da quella di indirizzo 18600. Il numero 
massimo di byte trasferiti è di 16, il trasferimento ha 
comunque fine se uno dei byte è zero. 

Si noti che nella codifica della routine, così come delle 
altre, gli indirizzi di locazioni di memoria, occupando 
ciascuno 16 bit, devono essere scomposti in due byte: 
ad esempio l’indirizzo 

18000 io = 0100100001000100 = 4844ie 

cioè nei due byte 48ie = 72io e 44i6 = 6810 

La routine è la seguente (il primo numero indica l’indi¬ 
rizzo di memoria del primo dei byte componenti la codi¬ 
fica dell’istruzione, gli altri il contenuto dei byte seguen¬ 
ti della codifica simbolica in notazione esadecimale, ed 
infine i commenti): 


INDIRIZZO 

CODIFICA 

SIMBOLICO 

COMMENTI 

18000 

6 

16 


LD B, 10H 

B = 10io - NUM. MAX. BYTE 

18002 

33 

68 

72 

LD HL, 4844H 

HL = 18500io - IND. PARTENZA 

18005 

17 

168 

72 

LD DE, 48A8H 

DE = I 86 OO 10 - IND. ARRIVO 

18008 

126 



LOOP: LD A, (HL) 

A = (HL) - CARICAMENTO BYTE 

18009 

183 



OR A 

OR DEL COTENUTO DI A 

18010 

40 

5 


JR Z, FINE 

SE A=0 SALTO A FINE 

18012 

18 



LD (DE), A 

(DE) = A - TRASFERIMENTO BYTE 

18013 

19 



INC DE 

DE = DE + 1 

18014 

35 



INC HL 

HL = HL + 1 

18015 

16 

247 


DJNZ LOOP 

B=B-1 - SE B>0 SALTO A LOOP 

18017 

201 



FINE: RET 

RITORNO AL PROGRAMMA BASIC 
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ROUTINE 

ASSEMBLER 


) 


Per provare questa routine si possono caricare a par¬ 
tire dalla locazione 18500 un certo numero di valori, 
eseguire la routine e verificare l’avvenuto trasferimento 
dei byte 


Ad esempio si potrebbe avere 


PRIMA 


DOPO 


18500 

1 

18500 1 

18501 

2 

18501 2 

18502 

3 

18502 3 

18503 

4 

18503 4 

18504 

0 

18504 0 

18600 

0 

18600 1 

18601 

0 

18601 2 

18602 

0 

18602 3 

18603 

0 

18603 4 

Dopo l'esecuzione della routine si può verificare che 
la coppia di registri HL conterrà 18504 che è l’indirizzo 

del byte uguale a zero. 


2) Routine di traslazione di un blocco di n byte 

Essa esegue lo spostamento di un blocco di n byte 
dalla locazione di indirizzo 18500 a quella di indirizzo 

18501 



Nella codifica che si riporta si è supposto il blocco di 
lunghezza 5 così da consentire la seguente prova 

PRIMA 

DOPO 

18500 

1 

18500 1 

18501 

2 

18501 1 

18502 

3 

18502 2 

18503 

4 

18503 3 

18504 

5 

18504 4 

18505 

0 

18505 5 

Alla fine della prova il registro HL conterrà 18499 

INDIRIZZO 

CODIFICA 

SIMBOLICO 

18000 

1 5 0 

LD BC 0005H 

18003 

33 68 72 

LD HL 4844H 

18006 

43 

DEC HL 

18007 

9 

add HL, BC 

18008 

84 

LD D, H 

18009 

93 

LD E, L 

18010 

19 

INC DE 

18011 

237 184 

LDDR 

18012 

201 

RET 



3) Routine creazione tabella 
Essa esegue, su una tabella del tipo: 

INDIRIZZ O (IND+0) (IND + 1 ) (IND + 2) 


18500 

18500 

18500 

18500 

18500 


x 

x 

X 

X 

0 


X 

X 

X 

X 

0 


0 

0 

0 

0 

0 


Precedentemente caricata in memoria, la somma dei 


w -— ■■■ —• iw i iona 

il totale dei valori della stessa, mentre 


COMMENTI 

BC = 5 - NUM. BYTE BLOCCO 
HL = I 8 OOO 10 IND. 1° BYTE 
HL = HL-1 

HL = HL + BC - ULTIMO BYTE SOR. 
D = H 
E = L 

DE = DE + 1 - ULTIMO BYTE DEST. 
TRASFERIMENTO BYTES 
RETURN AL PROGRAMMA 
BASIC 
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La codifica è la seguente: 


IND. 

CODIFICA 

SIMBOLICO 

COMMENTI 

18000 

1 

0 

0 

LD BC, 0000H 

BC = 0 

18003 

221 

33 

68 72 

LD IX,4844H 

IX = 18500io - IND. 1° BYTE 

18007 

17 

3 

0 

LD DE, 0003H 

DE = 3 - COST. INCREMENTO IND. 

18010 

62 

0 


LOOP: LD A, 00H 

A = 0 

18012 

221 

190 

0 

CP (IX-fOOH) 

CONFRONTO ELEMENTO (IX+00H) 

18015 

40 

23 


SR Z, FINE 

(IX+00H) =0? SE SI - FINE 

18017 

221 

126 

0 

LD A, (IX+OOH) 

A = (IX+00H) - CARICAMENTO 

18020 

221 

134 

1 

ADD A, = (IX+01H) 

A = A 4- (IX-fOIH) - SOMMA 

18023 

221 

119 

2 

LD (IX+02H), A 

(IX+02H) = A - DEPOSITO 

18026 

221 

126 

0 

LD A, (IX+00H) 

A = (IX+00H) 

18029 

128 



ADD A, B 

A — A + B - SOMMA TOTALI 1° COLONNA 

18030 

71 



LD B, A 

B = A 

18031 

221 

126 

ì 

LD A, (IX+01H) 

A = (IX+01H) 

18034 

129 



ADD A, C 

A — A + C - SOMMA TOTALI 2° COLONNA 

18035 

79 



LD C, A 

C = A 

18036 

221 

25 


ADD IX, DE 

IX = IX + DE - IND. PROSSIMO BYTE 

18038 

24 

226 


JR LOOP 

SALTO A LOOP 

18040 

221 

112 

0 

FINE: LD (IX+00H), B 

(IX+00H) = B - TOTALE 1° COLONNA 

18043 

221 

113 

1 

LD (IX—(-01H), C 

(IX+01H) = C - TOTALE 2° COLONNA 

18046 

120 



LD A, B 

A =: B 

18047 

129 



ADD A, C 

A= A + C 

18048 

221 

119 

2 

LD (IX+02H), A 

(IX+02H) = A - TOTALE 3° COLONNA 

18051 

38 

0 


LD H, 00H 

H = 0 - TOTALE 3° COLONNA 

18053 

111 



LD L, A 

L = A - POSTO IN HL 

18054 

201 



RET 

RETURN AL PROGRAMMA 


BASIC 


Un esempio di prova può essere il segnale 


PRIMA 


INDIRIZZO 

INDIRIZZO 

(IND + 1) 

(IND + 2) 

18500 

1 

2 

0 

18503 

16 

4 

0 

18506 

35 

19 

0 

18509 

6 

36 

0 

18512 

0 

0 

0 


INDIRIZZO 

DOPO 

INDIRIZZO 

(IND + 1) 

(IND + 2) 

18500 

1 

2 

3 

18503 

16 

4 

20 

18506 

35 

19 

54 

18509 

6 

36 

42 

18512 

58 

61 

119 


Alla fine del “RUN" della routine la coppia di registri 
HL conterrà il totale di tutti gli elementi contenuti in 
origine cioè 119. 


4) Routine analisi dispositivi: 

Essa suppone che al calcolatore siano collegati 8 
dispositivi tali che variando il proprio stato da ON a OFF 
o viceversa rispetto a una configurazione precedente- 
mente registrata, variano pure dei bit ai particolari regi¬ 
stri a loro connessi. 

Si suppone inoltre che: 

a) dispositivo ON = 1, dispositivo OFF = 0 

b) la configurazione precedente è nel registro B, ini¬ 
zialmente caricato da programma 

c) la configurazione attuale è nel registro A, inizial¬ 
mente caricato da programma. 

d) il registro H indica con 1 i bit corrispondenti ai 
dispositivi che hanno cambiato stato da ON a OFF. 

e) il registro L indica con 1 i bits corrispondenti ai 
dispositivi, che hanno cambiato stato da OFF a 
“ON" 

la lista della routine comprende già l’esempio di una 
prova. 

il registro A contiene 137 (configurazione attuale) 

il registro B contiene 27 (configurazione precedente) 
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Allora per quanto dato si otterrà: 

7 6 5 4 3 2 1 0 

B (PRECEDENTE) = 27 = 0 0 0 1 1 0 1 1 

A (ATTUALE) = 137 = 1 0 0 0 1 0 0 1 

H (DA 1-0) 00010010 

L (DA 0- 1) 10000000 

Allora alla fine della prova la coppia di registri HL 
conterrà: 

00010010100000002= 4736io 
La copia della routine è la seguente: 



IND. 

CODIFICA 

SIMBOLICO 

18000 

62 137 

LD A, 89H 

18002 

6 27 

LD B, 1BH 

18004 

245 

PUSH A 

18005 

197 

PUSH B 

18006 

245 

PUSH A 

18007 

47 

CPL A 

18008 

160 

AND B 

18009 

103 

LD A, A 

18010 

120 

LD A, B 

18011 

193 

POP B 

18012 

47 

CPL A 

18013 

160 

AND B 

18014 

111 

LD L,A 

18015 

193 

POP B 

18016 

241 

POP A 

18017 

201 

RET 


COMMENTI 

; A = 137 io - CONF. ATTUALE 
; B = 27 io - CONF. PRECEDENTE 
; A - NELLA STACK AEREA 
; B - NELLA STACK AEREA 
■ A - NELLA STACK AEREA 
; SE A = B 

; ALLORA BIT DI H = 1 
; A = B 

; CARICA B DALLA STACK AREA 
; SE A = B 

; ALLOTA BIT DI L = 1 

; SI RIPRISTINA B 

; SI RIPRISTINA A 

; RETURN AL PROGRAMMA BASIC 
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SUB 

INTESTAZIONE 


/ STAMPO 
/VUOI VEDERE 
LA MEMORIA?”, 



/ STAMPO 

/ DA QUALE 
LOCAZIONE?” 



STAMPO 
LOCAZIONE CI) 
/."CONTENUTO 
(PEEK I N/L PI 
-SIMQ BYTE1 


/ STAMPO 
"u PER USCIRE/ 

I 

/ INPUT B$/ 

© 
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ROUTINE 

ASSEMBLER 


10 LET A = 18000 
15 GO SUB 1000 

20 PRINT "VUOI SCRIVERE IN MEMORIA (S/N)? 
25 PRINT 
30 INPUT B$ 

40 IF B$ = “N” THEN GO TO 200 
50 PRINT 

55 PRINT “DA QUALE LOCAZIONE?” 

60 PRINT 
65 INPUT I 

70 IF l<A THEN GO TO 65 
75 GO SUB 1000 

80 PRINT "SCRIVI IL CONTENUTO” 

85 PRINT "DELLA LOCAZIONE”; I 
90 PRINT “(<-1> PER USCIRE): ” 

95 PRINT 
100 INPUT C 

110 IF C =-1 THEN GO TO 200 

120 IF C<0 OR 0255 THEN GO TO 100 

130 POKE I, C 

140 LET 1 = 1 + 1 

150 GO TO 75 

200 GO SUB 1000 

210 PRINT "VUOI VEDER LA MEMORIA (S/N)?” 
215 PRINT 
20 INPUT B$ 

230 IF B$ = "N” THEN GO TO 500 
240 PRINT 

250 PRINT “DA QUALE LOCAZIONE?" 

255 PRINT 
260 INPUT I 

270 IFC16384 THEN GO TO 260 
280 GO SUB 1000 
290 PRINT 

300 PRINT “LOCAZIONE: I 
310 PRINT 

320 PRINT “CONTENUTO: PEEK (I) 

330 PRINT 
335 PRINT 

340 PRINT "<N/L> PER IL PROSSIMO BYTE” 

350 IF NOT KA THEN PRINT“<C> 

PER CORREGGERE” 

360 PRINT “< U > PER USCIRE” 

365 PRINT 
370 INPUT B$ 

380 IF B$ = “U" THEN GO TO 500 

390 IF NOT B$ = “C” OR KA THEN GO TO 460 


PRINT 

PRINT 

PRINT "SCRIVI IL NUOVO CONTENUTO” 
PRINT “DELLA LOCAZIONE”; I; “:” 

PRINT 
INPUT C 

IF C<0 OR 0255 THEN GO TO 420 

POKE I, C 

GO TO 280 

LET I = I + 1 

GO TO 280 

GO SUB 1000 

PRINT “VUOI ESEGUIRE LA ROUTINE (S/N)?" 

PRINT 

INPUT B$ 

IF B$ = “N” THEN GO TO 800 
GO SUB 1000 

PRINT “ESEGUO LA ROUTINE DALLA” 

PRINT “PRIMA ISTRUZIONE (S/N)?” 

PRINT 
INPUT B$ 

IF B$ = “N” THEN GO TO 600 
LET P = A 
GO TO 640 
PRINT 

PRINT “INDIRIZZO DI PARTENZA?” 

PRINT 
INPUT P 

IF P<A THEN GO TO 620 
LET X = USR (P) 

GO SUB 1000 
PRINT 

PRINT “ALLA FINE DELLA ROUTINE” 

PRINT “LA COPPIA DI REGISTRI HL" 

PRINT “CONTIENE:”; X 

PRINT 

PRINT 

PRINT “<N/L> PER CONTINUARE" 

PRINT 
INPUT B$ 

GO SB 1000 

PRINT "TORNO A INIZIO PROGRAMMA (S/N)? 

PRINT 

INPUT B$ 

IF NOT B$ = “N” THEN GO TO 10 

GO SUB 1000 

PRINT 

PRINT “FINE PROGRAMMA- 

STOP 

CLS 

PRINT" “'ROUTINE ASSEMBLER*** ” 

PRINT 

PRINT 

RETURN 


400 

405 

410 

414 

415 

420 

430 

440 

450 

460 

470 

500 

510 

515 

520 

530 

535 

540 

550 

555 

560 

570 

580 

590 

600 

610 

615 

620 

630 

640 

650 

660 

670 

680 

690 

700 

705 

710 

715 

720 

800 

810 

815 

820 

830 

840 

845 

850 

860 

1000 

1010 

1020 

1030 

1040 
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DISEGNI 


Autore: A. Napoletano 

Programma utilizzante: 

4 k di memoria 


PROGRAMMA 

Questo programma non ti insegnerà come diventare 
un Van Gogh, ma ti permetterà di giocare con i caratteri 
grafici cosicché i tuoi programmi potranno beneficiare 
di una migliore visualizzazione dei risultati. 

Le pagine seguenti illustrano alcuni dei caratteri 
grafici con il loro numero di codice associato. 

Questi caratteri sono anche disponibili in stampa in 
qualsiasi momento dell’esecusizione del programma, 

Per ottenere la tabella dei caratteri e dei codici 
associati basta premere <1> e New Line in risposta a 
questa domanda: 

CODICE CARATTERE,< 1> PER LA TABELLA 

La selezione del codice carattere si può anche 
ottenere con la tabella visualizzata nello schermo, 
inserendo il codice prescelto in risposta alla domanda: 

COD. CARATT. <1> PER IL DISEGNO 

Se si risponde <1>, viene visualizzato di nuovo il 
disegno e quindi si può inserire il codice carattere 
prescelto tenendo presente il disegno. 

Per cancellare un carattere in una determinata 
posizione basta inserire le coordinate del carattere, e 
quindi inserire il codice 0. 

Viene effettuato anche un controllo sulla correttezza 
delle coordinate, se vengono impostate coordinate che 
eccedono o non sono comprese nella misura prescelta 
esse vengono ignorate, e richieste di nuovo. Per 
terminare la composizione si deve inserire <0> (zero) 
alla richiesta: 

SCRIVI LE COORDINATE, < 0 > PER USCIRE 

Si può ottenere infine anche la tabella con i codici 
impiegati nella composizione. 

Il programma inoltre permette più di una 
composizione in quanto di ferma attendendo una 
risposta alla domanda. 

VUOI COMPORRE ANCORA, <S/N>? 


75 LET \N — O 
85 CLS 

90 PRINT“AAAAA****DISEGNI****” 

95 LET S — O 

96 PRINT 

97 PRINT 
100 PRINT 
110 PRINT 

120 PRINT “MISURA (3 - 7)?” 

130 INPUT N 


140 IFN <3 OR N> 7THENGOTO120 
150 DIM A (N * N — 1) 

155 GOTO 200 

199 INPUT W$ 

200 CLS 

202 PRINT "AAAAA****DISEGNI****” 

203 PRINT 

204 PRINT 

205 PRINT 

206 PRINT 

207 PRINT 

210 FORK=1TON 
220 LET J - N + 1 — K 

225 PRINT “AAAAAAA”; 

230 PRINT J, 

240 FOR I = 1 TO N 

250 PRINT CHR $ (A(J-N-1+N*I)); 

260 NEXT I 

270 PRINT 
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280 NEXT K 
290 PRINT 
300 PRINT, 

310 FOR I = 1 TO N 
320 PRINT I; 

330 NEXT I 
340 PRINT 
345 PRINT 

347 IF W = 1 THEN GOTO 460 

400 PRINT “SCRIVI LE COORDINATE, <0> PER USCIRE' 
410 INPUT X 

420 IF X = 0 THEN GOTO 491 

425 LET J X/10 

426 LET I = X-10 * J 

430 IFI > N OR I < 1 THEN GOTO 200 
435 IFJ > N OR J < 1 THEN GOTO 200 

440 LET U = J 

441 LET Z = I 
450 PRINT X 

460 PRINT “CODICE CARATTERE, <1> PER LA TABEL¬ 
LA” 

470 INPUT X 

474 IF NOT X = 1 AND W = O THEN GOTO 485 

475 IF X — 1 THEN GO SUB 700 

476 IF W — 1 THEN GOTO 485 

477 PRINT "COD. CARATT., <1> PER DISEGNO” 

478 INPUT W 

479 IF W = 1 THEN GOTO 200 

480 LET X = W 

485 LET A (U - N - 1 + N * Z) = X 

486 LET W = O 

490 GOTO 200 

491 CLS 


Lo ZX80 può diventare più potente e versatile semplicemente sosti¬ 
tuendo la ROM preesistente con la nuova ROM 8K. Le fasi della 
modifica, a partire dallo scoperchiamento qui sotto riportato, sono 
illustrate a lato e a pagina 39 


La delicata fase di sostituzione della ROM. 


493 PRINT 

495 PRINT “AAAAAA****DISEGNO FINALE**** ” 

496 PRINT 

497 PRINT 

498 PRINT 

500 FOR K = 1 TO N 
510 LETJ = N + 1-K 
515 PRINT "AAAAAA"; 

520 FOR I = 1 TO N 

530 PRINT CHR $ (A(J - N-1+N* I)); 

540 NEXT I 
550 PRINT 
560 NEXT K 

565 PRINT 

566 PRINT 

567 PRINT 

606 PRINT 

607 PRINT 

608 PRINT 

610 PRINT “VUOI LA TABELLA DEI CODICI IMPIEG. <S/N 

>?” 

615 INPUT A$ 

620 IF A$ = “N” THEN GOTO 655 

625 CLS 

626 PRINT “ AAAAA****DISEGNI**** " 

627 PRINT 

628 PRINT 

629 PRINT 

630 PRINT "CODICI IMPIEGATI:” 

632 PRINT “L CODICI" 

633 PRINT 

634 FOR K = 1 TO N 

635 LET J = N + 1 - K 
637 PRINT J; “AA"; 
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640 

642 

643 

644 

645 

646 

650 

651 

655 

660 

663 

664 

665 

666 

670 

680 

690 

695 

696 

700 


FOR I =1TO N 

PRINT “A"; A (J - N - 1 + N * I); 

LET A (J - N - 1 + N * J) — 0 

NEXT I 

PRINT 

PRINT 

NEXT K 

INPUT Q$ 

CLS 

PRINT “AAAAA‘***DISEGNI. 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "VUOI COMPORRE ANCORA, <S/N>?” 
INPUT A$ 

IF A$ = “S” THEN GOTO 75 

CLS 

STOP 

CLS 


705 

710 PRINT “AAAA****TABELLA CARATTERI*. 

720 PRINT 
735 LET S = 2 
740 LET V — S + 1 

745 PRINT 

746 PRINT S, CHR$ (S), V CHR$ (V) 

750 LET S = S + 2 

755 IF S > 10 THEN GOTO 765 
760 GOTO 740 
765 LET S= 128 
770 LET V = S + 1 

775 PRINT 

776 PRINT S, CHR$ (S), V, CHR$ (V) 

780 LET S = S + 2 

785 IF J = 136 THEN LET W = S + 6 
790 IF S = 136 THEN GOTO 775 
795 IF S > 136 THEN GOTO 805 
800 GOTO 770 
805 RETURN 
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NIM 


Autore: S. Nichelini 

Programma utilizzante: 

4 k di memoria 


ISTRUZIONI GENERALI 


NIM - Il gioco reso celebre dal film “Last yearat Marien- 
bad” 

Questo gioco, che si pratica in due, consiste nell’elimi- 
nare, a turno, dei quadratini da uno schema visualizzato 
sul video. Inizialmente tale schema è composto da 5 
righe di, rispettivamente, 9, 7, 5, 3 e 1 quadratini. 
Durante il gioco si possono eliminare, da una sola riga 
quanti quadratini si vuole, con un minimo di 1. 
Esistono varie versioni di questo gioco: obbiettivo di 
questa versione è quello di eliminare l’ultimo o gli ultimi 
quadratini. 
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Per indicare il numero di riga ed il numero di quadratini 
da eliminare, si usanoduecifre; la prima perii numerodi 
riga, la seconda per il numero di quadratini (es: scri¬ 
vendo 14 si eliminano 4 quadratini dalla prima riga); nel 
caso in cui si tenti di eliminare un numero di quadratini 
maggiore di quelli attualmente presenti sulla determi¬ 
nata riga, verrà richiesto di nuovo l’inserimento delle 
due cifre. 

Nel caso in cui si volesse uscire dal gioco prima della 
vittoria di uno dei due giocatori, alla richiesta si deve 
inserire 0. 



DIM N(5) 

LET N (1 ) = 9 
LET N(2) = 7 
LET N(3) = 5 
LET N(4) = 3 
LET N(5) = 1 
GOTO 500 

PRINT “** ... 32 asterischi" 

PRINT “AAA*** NlM ***” 

PRINT “** ... 32 asterischi" 

PRINT 

PRINT 

FOR R = 1 TO 5 
PRINT R; 

FOR M = 1 TO N(R) 

IF (N(R) = 0 THEN GOTO 260 

PRINT "AÈ1 

NEXT M 

PRINT 

PRINT 

NEXT R 

RETURN 

GOSUB 200 

LET S = 1 

PRINT 

PRINT “GIOCATORE:” ; S 

PRINT 

PRINT 

PRINT "NUMERO DI RIGA E DI ELEMENTI- 
INPUT Y 

IF Y = 0 THEN GOTO 900 

IF Y < 0 OR Y > 51 THEN GOTO 540 

LET M = Y/10 

LET Y = Y — 10 * M 

IF Y > N(M) ORYnO THEN GOTO 540 

LET N(M) — N(M) — Y 

IF N(1 ) = 0 AND N(2) = 0 AND N(3) = 0 AND 

N(4) = 0 AND N(5) = 0 THEN GOTO 800 

CLS 

GOSUB 200 

IF S = 2 THEN GOTO 510 
LET S = S + 1 
GOTO 520 
CLS 

GOSUB 200 

PRINT 

PRINT 

PRINT “HA VINTO IL GIOCATORE”: S 
PRINT “COMPLIMENTI ..." 

PRINT 

PRINT 

PRINT “LA PARTITA SI CHIUDE”. 


J 


100 

110 

120 

130 

140 

150 

160 

200 

201 

202 

203 

204 

209 

210 

220 

230 

240 

250 

260 

270 

280 

290 

500 

510 

520 

522 

524 

525 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

800 

801 

802 

804 

806 

810 

900 

905 

910 
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ALLUNAGGIO 


Autore: S. Gioia 
Programma utilizzante: 

4 k di memoria 


Questo programma permette al giocatore di tentare l’al¬ 
lunaggio con una astronave che inizialmente si trova in 
queste condizioni: 

Altezza Velocità Carburante 

1500 m -50 km/h 10.000 1 

Ogni velocità negativa avvicina l’astronave al satellite, 
viceversa ogni velocità positiva tende ad allontanare la 
navicella dalla luna. 

Per modificare l'altezza, la velocità ed eventualmente il 
carburante è necessario operare su alcuni input (2) che 
il programma richiede in fase di esecuzione: 

SPINTA (0 - 99)? 

DURATA (1 - 10)? 

In entrambi questi input occorre inserire un numero 
appartenente all'insieme numerico delimitato dai nu¬ 
meri messi tra parentesi; contrariamente il programma 
richiede automaticamente lo stesso input fino a che non 
si verifica la condizione detta. 

Come si nota la spinta è sempre maggiore o uguale a 
zero; in questo ultimo caso l’astronave diminuisce di 
velocità in quanto è soggetta ad attrazione gravitaziona¬ 
le lunare. 

La durata rappresenta il tempo per cui deve mantenere 
la spinta. 

In caso di allunaggio il programma calcola la percen¬ 
tuale di errore in base alla velocità di arrivo; ciò rende il 
gioco più interessante e competitivo. 


NOTA - Il programma deve essere mandato in esecu¬ 
zione con l’istruzione GOTO 100; nel caso il 
giocatore desse l'istruzione RUN, avrà il 
compito di inserire un vettore di 20 posizioni 
che permette di visualizzare l'astronave. 

I numeri di inserire in sequenza sono: 

0, 0, 156, 0, 0, 0, 8, 3, 136, 0, 0, 

2, 3, 130, 0, 134, 131, 3, 131, 135. 

Si ricorda che ogni volta che si manda in esecuzione un 
programma con l’istruzione RUN, tutte le variabili ven¬ 
gono azzerate. 


VARIABILI 

USATE 


H,V,R 

Altezza, Velocità, 


Carburante. 

F, T 

Spinta, Durata. 

A (1) 

Figura dell’astronave. 

L 

Linee tra l'astronave e la 


luna. 

X, S 

variabili di comodo 


DESCRIZIONE GENERALE 


50- 85 

caricamento vettore A (1) necessario pei 
la stampa dell’astronave. 

200-260 

stampa dell’astronave. 

300-350 

INPUT e relativi controlli. 

370-730 

elaborazione e controlli. 

50 

DIM A (19) 

55 

FOR 1 = 0 TO 19 

60 

PRINT 1, 

65 

INPUT X 

70 

LET A( 1 ) = X 
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75 

80 

85 

100 

110 

120 

122 

124 

130 

200 

207 

210 

220 

230 

240 

250 

260 

300 

310 

316 

320 

330 

340 

344 

350 

370 

400 

410 

420 

500 

510 

520 

530 

540 

550 

560 

564 

568 

569 

570 

571 

572 

577 

578 

580 

582 

585 

595 

596 

600 

620 

630 

640 

650 

655 

660 

670 

680 

690 

695 

705 

707 

710 

720 

730 


\ 


PRINT A(l) 

NEXT I 
CLS 

V - -50 
H - 1500 
R = 10000 

PRINT.LUNAR - LANDER. 

PRINT 

GOTO 500 

FORl = 0 TO 3 

PRINT “AAAAAAAAAA” 

FOR X = 0 FO 4 
PRINT CHR$ (A(X + 5 * I)); 

NEXT X 
PRINT 
NEXT I 
RETURN 

PRINT “SPINTA (0 - 99)?", 

INPUT F 

IF F <0 OR F> 99 THEN GO TO 310 
PRINT F 

PRINT "DURATA (1 - 10)?”, 

INPUT T 

IF T <1 OR T> 10 THEN GO TO 340 
CLS 

LET R = R — F * T * 10 

LET A = F — 32 

LETH=:A*T**2 + V*T + H 

LtT V = 2 * A * T + V 

LET L = H/100 

IF L <0 THEN LET L = 0 

IF L > 12 THEN LET L = 12 

FOR I = L TO 12 

PRINT 

NEXT I 

IF L > 8 THEN GOSUB 200 
PRINT “AAA VEL", “ALT”, “CARB” 

IF H >0 AND H<150 AND V<1 ANDV> 
— 99 THEN LET H = 0 
IF R > 0 THEN GO TO 578 
PRINT “AA”; V, H, “0” 

PRINT 

PRINT.CARBURANTE FINITO. 

STOP 
LET S = H 

IF S < 0 THEN LET S = 0 

IF H < 0 AND V > 0 THEN LET V = — V 

IF V > 0 AND H = 0 THEN LET S = 10 

PRINT “AAA”; V, S, R 

IF NOT L > 8 THEN GOSUB 200 

IF H = 0 THEN GO TO 650 

FOR I = 1 TO L — 1 

PRINT 

NEXT I 

IF H < 0 THEN PRINT “CRASH" 

IF H = 0 AND V < — 99 THEN PRINT 
“CRASH” 

FOR I nr 1 TO 16 



NEXT I 

IF H > 0 OR V > 0 THEN GO TO 300 
IF H < 0 OR V < — 99 THEN GO TO 730 
LET V = — V 
PRINT 

PRINT “PERO. ERR. 0,”; V; “%” 

STOP 

PRINT “TERRIBILE” 


V_ 

PINCK 
f - 


) 


Autore: L. Castagna 
Programma utilizzante: 

4 k di memoria 


È un gioco apparso per la prima volta nel 1980 in Ame¬ 
rica, è l’equivalente del gioco giapponese GO. Due gio¬ 
catori alternativamente, collocano delle "pietre” su una 
tavola a 8 posizioni: un gruppo di pietre consecutive è 
considerato catturato se è circondato da ogni lato. Un 
gruppo sul bordo è il più facile da catturare. 

E un gioco interessante. Una volta studiate le strategie 
delle 8 posizioni, si può provare con 9 posizioni, in 
questo caso le strategie saranno differenti. 


95 PRINT "PINCH" 

96 PRINT 

97 PRINT 

105 DIM T(2) 

110 PRINT “NOME 1° GIOCATORE" 

120 INPUT Y$ 

130 PRINT 

135 PRINT “NOME 11° GIOCATORE 

140 INPUT Z$ 

150 LET A $ = Y $ 

160 LET B = 1 

170 GO TO 600 

200 IF G(l) = 0 THEN RETURN 

202 IF G(l) = 1 THEN GO TO 220 

204 LET C = 2 

206 LET D = 1 

208 GO TO 220 

220 LET C = 1 

215 LET D = 2 

220 LET K = I 

221 LET K = K - 1 

222 IF K = 0 OR G(K) = D THEN GO TO 235 

225 IF G(K) = C THEN GO TO 221 

230 IF G(K) = 0 THEN GO TO 340 

235 LET M = K + 1 

240 LET K = I 

245 LET K = K + 1 

250 IF K = 9 OR G(K) = D THEN GO TO 265 

255 IF G(K) = C THEN GO TO 245 

260 IF G(K) = 0 THEN GO TO 340 

265 LET N = K - 1 

270 FOR K = M TON 

275 LET G(K) = 0 

280 NEXT K 

285 LET T(C) = T(C) + (N-M) + 1 
340 CLS 

350 PRINT 

360 PRINT.PINCH. 

370 PRINT 

375 PRINT 

380 PRINT 

390 FOR J in 1 TO 8 

400 PRINT “AA”; CHR$ (6 + 3 * G(J)); 

410 NEXT J 

420 PRINT 

430 PRINT “A”; 

440 FOR J = 1 TO 8 
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450 PRINT “A 0z0 A”; 

460 NEXT J 

470 PRINT 

480 PRINT 

490 FOR J — 1 TO 8 

500 PRINT “A A”; J; 


Esempi: 

a) unj”i*n2<n°njn_n°i 

1 2 3 4 5 6 7 8 


1 2 3 4 5 6 7 8 


A) Se in questo esempio volesse muovere il giocatore 
X, una mossa che mettesse una pietra sulla posi¬ 
zione 7 catturerebbe il gruppo alla posizione 8. Se 
dovesse muovere il giocatore 0, muovendo una pie¬ 
tra sul 2 catturerebbe il gruppo alle posizioni 3 e 4. 


B) Se in questo esempio dovesse muovere il giocatore 
X, posizionando una pietra sulla posizione 1, si 
autocatturerebbe o autochiuderebbe. 


ANALISI 

Il programma inizia chiedendo i nomi dei 2 giocatori. 
Dopo aver assegnato il codice ad ogni giocatore (1 o 2) è 
possibile risalire al simbolo di ogni singolo giocatore 
tramite l’istruzione CHR$ (6 +3 * B)con Bugualea 1 oa 
2. Le linee che partono dallo 630 e arrivano alla 680 
servono a controllare la validità della mossa e a control¬ 
lare che il giocatore non voglia posizionare la propria 
pietra in una posizione occupata del tavolo da gioco. 
Scrivendo 0 alla richiesta della mossa si ottiene che il 
programma termini con la stampa dei risultati finali. 
Mediante una subroutine richiamata dalle linee che 
vanno dalla 700 alla 720, viene stabilito se la pietra 
posata dal giocatore fa parte di un gruppo chiuso; po¬ 
trebbe succedere cioè, che un giocatore si autocatturi 
con una sua stessa mossa. Se è così allora la mossa ha 
autochiuso il giocatore che quindi regala punti all’avver¬ 
sario. Tramite le linee 710-720 si esaminano le posizioni 
immediatamente a destra e immediatamente a sinistra 
per determinare se queste ultime fanno parte di gruppi 
chiusi. In questo caso il giocatore realizza punti a pro¬ 
prio favore. Infine vi è il caso in cui una mossa sia senza 
risultato, se così fosse nessun giocatore guadagne¬ 
rebbe punti. Determinato ciò si incrementa il contatore 
relativo al diritto a muovere da parte di un giocatore; se 
questo contatore è 3, esso viene riposizionato a 1 per 
riprendere il giro. Quando alla richiesta della mossa si 
risponde con uno 0 il programma salta alla linea 900 
dalla quale inizia la fase di stampa dei risultati finali e del 
nome del vincitore. 

Per stabilire il nome del vincitore viene analizzato il 
contatore dei punti accumulati da entrambi i giocatori 
(T(C)) e a seconda del valore di T (1) e T (2) si ha la 
stampa del vincitore. Le linee 340-515 servono per la 
stampa della tavola da gioco con le 8 posizioni. 

510 NEXT J 

515 PRINT 

520 RETURN 

600 GO SUB 340 

610 PRINT 

620 PRINT A$; “(“; CHR$ (6 + 3 * B);"): MOSSA?” 
630 INPUT 1$ 

640 LET I = CODE (1$) - 28 
650 IF I = 0 THEN GO TO 900 

660 IF I > 0 AND I < 9 THEN GO TO 680 

670 GO TO 630 

680 IF NOT G(l) = 0 THEN GO TO 630 

690 LET G(l) = B 

700 GO SUB 200 

710 LET 1 = 1 + 1 

712 IF I > 8 THEN GO TO 716 

714 GO SUB 200 

716 LET I — I — 2 

718 IF I < 1 THEN GO TO 740 

720 GO SUB 200 

740 LET B = B + 1 

750 IF B = 3 THEN LET B = 1 

760 IF B = 2 THEN LET A$ = Z$ 

770 IF B = 1 THEN LET A$ = Y$ 

780 GO TO 610 
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900 

905 

906 

907 
910 
920 
930 
940 
950 
960 
970 
980 
990 


CLS 

PRINT, 

PRINT 

PRINT 

PRINT, 

PRINT 

PRINT 

PRINT 

PRINT 

IFT(1) 

IF T(1) 

IF T(1) 

STOP 


“*** PINCH ***’’ 


"TOTALE PUNTI”: 

Y$; “ = “A=A";; T(2) 

Z$; “ = “A=A”;; T(1) 

= T(2) THEN PRINT “PARI” 

> T(2) THEN PRINT “HA VINTO” 
< T(2) THEN PRINT “HA VINTO” 



A $ 

(CHRS (6+3+B) 
MOSSA? 

AJ 


yA / 


zz5i7 


Z$ 

Y$ 


REPERTORIO 

Y$ 

Z$ 

A$ 


B 

G(l) 

C 

D 


M 

N 

T(C) 


1 $ 


: nome 1° giocatore 
: nome 11° giocatore 

: variabile contenente il nome del giocatore in 
azione 

: contatore relativo al diritto alla mossa 
: vettore posizioni sulla tavola di gioco 
: variabile di comodo contenente il codice dell’e¬ 
ventuale vincitore 

: variabile di comodo contenente il codice dell’e¬ 
ventuale perdente 

: variabile di comodo per i cicli di controllo del¬ 
l’effetto della mossa. 

: eventuale posizione iniziale gruppo chiuso 
: eventuale posizione finale gruppo chiuso 
: vettore contenente il punteggio dei due gioca¬ 
tori. T(1) = punteggio 11° giocatore T(2) rr pun¬ 
teggio 1° giocatore 

: mossa eseguita dal giocatore attualmente in 
gioco 

: mediante l’istruzione CODE (1$) - 28, la mossa 
del giocatore, che è contenuta in 1$, viene tra¬ 
dotta nella posizione corrispondente della 
tavola. 


/ / 




NOME 

2® 

GIOCATORE 


V V- 

Z $ 



A$ = Y$ 



B= 1 



T =1 




PII 

VCH 

A/v 

J 

= 1 



DDj 

CHR$ 

(6+3*G(J) 

—'VJv/'— 

J = J+1 







m 




J= J+1 
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SI 


M=K + 1 




K= 1 





M=K+1 








Z($) = T(Z) 





—<B 

2 > 

SI 


SI 

A$=Z$ J 

A$=Y$ -1 


© 



I PARI l— 

1 -yAAA 1 



>T(2p^ 

SI 

r<wr 

Tm>- 

SI 


HA VINTO 



HA VINTO 
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CAPITALI 


Autore: E. Vlghl 
Programma utilizzante: 

4 K di memoria 


Questo programma mostra come si può usare un cal¬ 
colatore per scopi didattici. 

All'operatore vengono proposte in un ordine casuale 
10 domande sulle capitali di alcune nazioni del mondo, 
se egli risponde subito in modo corretto, gli viene asse¬ 
gnato un punteggio 10, se la prima risposta è errata, ma 
la seconda risposta alla domanda e giusta, gli viene 
assegnato un punteggio 5, se la risposta alla domanda è 
per due volte sbagliata gli viene assegnato il punteggio 0 
e si visualizza la risposta esatta. 

Ripetendo questo procedimento per tutte le 10 do¬ 
mande, alla fine del questionario è sufficiente sommare i 
punteggi ottenuti per ciascuna domanda per ottenere 
un indice percentuale della conoscenza dell’argomen¬ 
to. L’intervallo dei valori che possono essere assunti 
dall’indice citato è costituito da tutti i multipli di 5 com¬ 
presi fra 0 e 100. 

È evidente che lo stesso schema di programma può 
essere facilmente adattato a qualsiasi tipo di domande. 

Si noti che sia le domande che le risposte vengono 
elaborate in una sola variabile (A$), nella quale sono 
inserite nella forma: 

<nome nazione> ? <nome capitale> 

La stampa del <nome nazione> avviene prendendo 
un carattere alla volta dalla stringa, con la funzione 
CODE, e togliendo poi il carattere già stampato, me¬ 
diante la funzione TL$ 




Lo ZX80 dotato di nuova ROM, tastiera, espansione a 16K 
e piccolo altoparlante. 

Ricordo che la CODE (A$) riporta il codice del primo 
carattere della variabile A$, mentre la TL$ (A$) priva la 
variabile A$ del suo primo carattere. 

Il ciclo di stampa descritto precedentemente è ripetu¬ 
to fino al carattere “?”, il cui codice è 15. Nel programma 
si è fatto uso di un ciclo 200 FOR I = 1 TO 30 che in 
realtà non verrà mai eseguito per 30 volte, poiché i nomi 
delle nazioni sono tutti più brevi, quindi il carattere “?” 
verrà trovato prima della fine del ciclo. 

L'istruzione di controllo in questo caso è la 
240 IF x = 15 THEN GO TO 300. 

Le linee 305 Print B$ e 415 PRINT B$, che seguono 
delle istruzioni di lettura della variabile B$, sono state 
introdotte allo scopo di mantenere visualizzata sullo 
schermo la risposta ad una domanda anche dopo la 
lettura di questa risposta nella variabile B$. 

Le linee 350 e 355 servono ad interrompere per il 
tempo desiderato l’esecuzione del programma e con¬ 
sentono di mantenere sul video la situazione alla fine di 
ogni domanda per tutto il tempo che si vuole, prima di 
passare alla domanda sucessiva. 
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CAPITALI 


) 



Variabili usate 

Q(10) vettore di controllo delle domande già fatte. Se 
Q(x)=-1, la domanda contenuta nella subrouti¬ 
ne della linea (500+20 * x) è già stata fatta; 
altrimenti se Q(x) =0 la domanda della subrou¬ 
tine che inizia alla linea (500+20 * x) non è 
ancora stata posta. 

C contatore dei punti realizzati 

A punti realizzati nella domanda considerata. Va¬ 
lori possibili 0,5, 10 

Q contatore domande già fatte; varia da 1 a 10 

A$ variabile usata per elaborare le domande e le 
risposte. 

B$ variabile usata per leggere le risposte. 

S$ variabile di comando usata per ritardare come 



Le 10 soubroutine non sono state indicate nel dia¬ 
gramma a blocchi per la loro estrema semplicità 


Descrizione generale programma: 

Linee 100-120 : inizializzazione variabili 
Linee 130-148 : intestazione 

Linee 150-190 : scelta casuale di una domanda fra 


Linee 200-250 
Linee 300-450 
Linee 500-510 
Linee 520-710 


quelle disponibili e non ancora scelte. 

: stampa del nome della nazione 
: gestione della risposta alla domanda 
: fase di chiusura 

: subroutines per le 10 domande che ver¬ 
ranno poste in ordine casuale. 
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100 

110 

120 

130 

135 

140 

145 

148 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

300 

305 

310 

315 

316 

320 

330 

340 

345 

346 

350 

355 

360 

370 

400 


/.PRINT 7 

'ERRORE : / 
RIPROVA" / 


I INPUT 7 


/pRI NT 
/ B$ 


7 




DIM Q(10) 

LET C=0 
LET Q=0 

PRINT “*** PROVA CAPITALI ***” 
PRINT 

PRINT "SCRIVI LA CAPITALE” 

PRINT “DELLA SEGUENTE NAZIONE: 
PRINT 

LET x=RND (10) 

LET A=10 

IF Q(x)< 0 THEN GO TO 150 
LET Q(x)=-1 
GO SUB 500 +20 * x 
FOR 1=1 TO 30 
LET x=CODE (A$) 

PRINT CHR$ (x); 

LET A$=TL$ (A$) 

IF x=15 THEN GO TO 300 
NEXT I 
INPUT B$ 

PRINT B$ 

IF NOT A$=B$ THEN GO TO 400 
PRINT 

PRINT"ESATTO” 

LET C= C+A 
LET Q=Q+1 

IF Q=10 THEN GO TO 500 

PRINT 

PRINT 

PRINT “<N/L> PER CONTINUARE 
INPUT S$ 

GcTtO 130 

PRINT “ERRORE - RIPROVA:” 


410 INPUT B$ 

414 PRINT 

415 PRINT B$ 

420 LET A=5 

425 IF B$=A$ THEN GO TO 315 

426 PRINT 

427 PRINT “ERRORE” 

430 PRINT "CAPITALE ESATTA:”;; A$ 

440 LET A=0 

450 GO TO 320 

500 PRINT C; “PER 100 DI RISPOSTE ESATTE” 
510 STOP 

520 LET A$= “CECOSLOVACCHIA ? PRAGA” 
530 RETURN 

540 LET A$= "TURCHIA? ISTANBUL” 

550 RETURN 

560 LET A$= “U.S.A.7WASHINGTON” 

570 RETURN 

580 LET A$ = “OLANDA? AMSTERDAM” 

590 RETURN 

600 LET A$= “AUSTRALIA? CANBERRA” 

610 RETURN 

620 LET A$= “GIAPPONE? TOKIO” 

630 RETURN 

640 LET A$= “INDIA? NUOVA DEHLI” 

650 RETURN 

660 LET A$= “POLONIA? VARSAVIA” 

670 RETURN 

680 LET A$= "SVEZIA? STOCCOLMA 
690 RETURN # 

700 LET A$= “PORT 0,fìA€t O? LISBONA” 

710 RETURN 




J 


B0ÙAPES1 




VARSAVIA 


BERLINO 

VIENNA 

BELGRADO 
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BUBBLE SORT 


Autore: G. Rocca 
Programma utilizzante: 

4 K di memoria 


ANALISI 


Questa routine serve per porre in ordine crescente 
una serie di numeri dati in input. 

La prima operazione del programma è di caricare una 
quantità “N" di numeri in un vettore P(l). 

Il vettore P(l) passa poi alla fase di ordinamento con¬ 
frontando il primo numero della serie con l’ultimo. Se 
l’ultimo risulta maggiore del primo si passa al confronto 
con il penultimo, con il terzultimo e così via fino ad 
arrivare al numero in esame.Altrimenti incremento il 
puntatore I di 1 e passo al confronto della variabile I con 
N e seguo. Dopo aver esaminato il primo numero della 
serie si incrementa il puntatore e si analizza il successi¬ 
vo ripetendo l’operazione come nel numero precedente. 
L’ordinamento finisce quando il numero in esame pun¬ 
tato da J corrisponde al penultimo della serie da ordina¬ 
re. 

Per controllare e vedere il risultato deH’ordinamento 
si effettua una routine di stampa dei numeri contenuti 
nel vettore P(l), con il rispettivo puntatore I. 


5 PRINT.ORDINAMENTO A BOLLE ***” 

6 PRINT 

10 PRINT “NUM DI ELEMENTI = >’’ 

15 INPUT N 

20 DIM P(N) 

25 FOR 1=1 TO N 

26 PRINT 

30 PRINT ''ELEMENTO"; I; “= >” 

35 INPUT P(l) 

40 CLS 

45 NEXT I 

100 FOR J=1 TO N-1 

110 LET K — J+1 

120 FOR I = K TO N 
130 LET L = N+K-l 
140 IF P(L) > P(J) THEN GO TO 180 
150 LET T = P(L) 

160 LET P(L) = P(J) 

170 LET P(J) = T 

180 NEXT I 

190 NEXT J 

200 FOR 1=1 TO N 

210 PRINT I, P(I) 

220 NEXT I 


(start) 


/ PRINT "XXX / 

/ ORDINAMENTO / 
/ A BOLLE XX" / 

















































SISTEMA 
4 EQUAZIONI 
IN 4 INCOGNITE 

/- 


] 


Autore: M.OIiva 
Programma utilizzante: 

4K di memoria 


Si tratta di un programma che consente la risoluzione 
di un sistema lineare di 4 equazioni in 4 incogniten 
normale e non omogeneo un sistema cioè del tipo: 

3 ■ iX—)—a 1 2 Y -)- a 1 3 Z -f- 3 » t = a15 
a 2 ix4-a 2 2 Y -j- a 23 Z -j- a 2 41 x a 2 5 
a 3 ,x-|-a 32 Y -j- a 3 j Z -j- a«1 = a 3 s 
a 4 iX-(-a 4 2 Y -j- a4 3 Z -j- 844 1 — 845 


in cui almeno un coefficiente di ciascuna varia lile (x, y, 
z, t) sia diverso da zero e almeno un termine noto (ai 5 
a 25 , a 35 , a 45 ) non sia meno. 

Per la risoluzione di un sistema di questo tipo si utiliz¬ 
za la regola di Kramer. 

Essa, nel nostro caso, ci dice che un sistema non 
omogeneo di 4 equazioni lineari in 0 incognite con il 
determinante dei coefficienti non nullo, ammette una e 
una sola soluzione costituita dai valori ottenibili divi¬ 
dendo per il determinante dei coefficienti (D) i determi¬ 
nanti Dx, Dy, Dz, Dt che si trovano sostituendo ai coeffi¬ 
cienti di ciascuna incognita, che si vuole determinare, i 
termini noti ai 5 , 825 , a 35 , a 4 s- 

Ricordiamo allora che: 



3l 1 

an 

an 

a 14 


321 

a 22 

a 2 3 

a 2 4 

D= 

331 

332 

333 

334 


341 

342 

343 

344 6 ChG! 

Dx= 

3i5 

ai2 

an 

3l4 

325 

a 22 

a 2 3 

a 2 4 


335 

a3 2 

a33 

a 3 4 


345 

342 

343 

344 ; 


311 

3|2 

3l5 

a 14 

Dz= 

a 2 i 

a 2 2 

a 2 5 

a 2 4 


331 

a32 

335 

334 


341 

342 

a 4 5 

344 I 

Dy= 

311 

ai5 

a 13 

3l4 

321 

a 2 s 

a 2 3 

3 2 4 


331 

a35 

a33 

a 3 4 


841 

345 

343 

344 

Dt= 

311 

3 12 

ai3 

ais 

3 2 i 

3 2 2 

a 2 3 

a 2 s 


331 

332 

333 

a 3 5 


341 

342 

343 

a 45 e le soluzioni 


Dx 


Dy 

Dz 



. T- 




D 


D 

D 


sono: 

Dt 
t=— 

D 


Il problema si riduce, dunque, al sviluppo di un deter¬ 
minante del 4° ordine. 

Si noti che gli elementi del determinante sono 4 2 =16 
e che i termini dello sviluppo saranno 4! = 4-3-2-1 = 24 
Lo sviluppo A del determinante sarà allora dato da 

A — E 24 ( — 1) S 3qn . 3q 22 ■ aq 33 . 3q44 

dove q è una delle 24 permutazioni degli indici (1,2,3,4) ed 
s è il numero di spostamenti della permutazione (lo 
spostamento è il valore che indica che un indice mag¬ 
giore precede uno minore). 

In realtà il calcolo è assai più semplice di quanto non 
possa ora simulare. Vediamo ora come ciò si è prodotto 
nel programma. 
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SISTEMA 

4 EQUAZIONI 
IN 4 INCOGNITE 


Esso incomincia visualizzando la spiegazione iniziale 
e dopo l’introduzione del carattere <NEWILINE> ha 
inizio il cambiamento delle operazioni componenti il 
sistema che si vuole risolvere. 

Sono quindi richiesti i coefficienti di x y z t per ciascu¬ 
na equazione, ese questi sono tutti nulli si ha la segnala¬ 
zione d'errore e la richiesta di nuovi valori, poi viene 
richiesto il termine noto. Successivamente il programma 
controlla che almeno uno dei coefficienti di ciascuna 
variabile e del termine noto non sia uguale a zero, altri¬ 
menti visualizza un messaggio di errore e incomincia di 
nuovo il caricamento. 

Se i coefficienti ed i termini noti sono posti corretta- 
mente il programma calcola i valori delle variabili secon¬ 
do il procedimento già esposto. 

La risoluzione del sistema è segnalata dalla visualiz¬ 
zazione del sistema e dai valori calcolati per ciascuna 
variabile. A tal proposito occorre ricordare che queste 
soluzioni possono presentarsi in due forme: in forma 
intera e in forma di frazione. Infatti lo ZX-80 non trattan¬ 
do numeri decimali non consentirebbe l’esecuzione 
corretta di divisioni nelle quali il dividendo non fosse 
multiplo dei divisore. In questo caso il programma vi¬ 
sualizza il risultato sotto forma di frazione senza però 
che questa sia ridotta per forza ai minimi termini. 

Consideriamo ora i due esempi chiarificatori. 

Il sistema: 

x-2y -f 5z - 2t =-14 
2x + y - 3z + t = 10 
x-f3y-z + 2t = 14 
3x - y + 2z + 3t = 8 
le cui soluzioni sono: 
x = 1 
y = 2 
z = -1 
t = 3 

introdotto nel programma produce la seguente visualiz¬ 
zazione finale: 


*** SOLUZIONE SISTEMA EQUAZ. *** 
IL SISTEMA: 

-f x - 2y -f 5z - 2t = - 14 
-f 2x + y - 3z + t = 10 
-f x + 3y - z + 2t = 14 
-(- 3x - y + 2z + 3t = 8 

HA LE SOLUZIONI: 
x = 1 
y = 2 
z = - 1 
t = 3 
9/550 


Invece il sistema: 

4x — 3y + 2z — 7t = -2 
x + 6y - z = 2 


x + 2z + 14t = -13 
3x - 3y + z - 21t = 2 
le cui soluzioni sono: 
x = 3 
y = 5/3 
z = -9 
t = 1/7 

produce la seguente visualizzazione finale. 


*** SOLUZIONE SISTEMA EQUAZ. *** 
IL SISTEMA: 

+ 4x - 3y +2z - 7t = -2 
+ x + 6y-z = 2 
+ x + 2z + 14t = -13 
4- 3x - 3y + z - 21t = 2 
HA LE SOLUZIONI: 
x = 3 

y = -(700/420) 
z = -9 
T = - 60/420 
9/550 


Infatti: 

y = -700/420 = -5/3 e 
t = 60/420 = 1/7 

Come si è detto il programma utilizza il metodo delle 
permutazioni degli elementi nel calcolo del valore dei 
determinanti. 

Tali permutazioni in forma di indici, relativi ai coeffi¬ 
cienti e ai termini noti delle 4 equazioni, devono essere 
introdotte nei byte occupati dalla codifica della linea: 

1 REM ■■■■■■■■■■■■■■■■■■■■■■■■■■ 

Per potere, dunque caricare il programma corretta- 
mente occorre operare nel modo seguente. Per prima 
cosa scrivere in memoria tutto il programma così come 
appare nel listato; fatto ciò eseguire in modo immediato 
l’istruzione 
GO TO 5000 

Dove alla linea 5000 ha inizio la routine di caricamento 
delle costanti rappresentanti le permutazioni. Esse sono 
24, e vengono introdotte a partire dal byte il cui indirizzo 
è 16428 

Le costanti che devono essere introdotte sono: 


INDIR. BYTE 

COSTANTE 

16428 

134 

16429 

143 

16430 

130 

16431 

220 

16432 

242 

16433 

224 

16434 

214 

16435 

34 

16436 

43 

16437 

30 

16438 

210 

16439 

241 

16440 

24 

16441 

42 

16442 

141 

16443 

114 

16444 

20 

16445 

110 

16446 

221 

16447 

212 


44 












16448 

113 

16449 

131 

16450 

32 

16451 

23 


Una volta concluso il caricamento delle costanti la 
linea 1 non è più visualizzabile: per cui non dare mai il 
comando 

LIST 

Se si vuole visualizzare il programma dall’inizio (linea 
1 esclusa ovviamente) si può utilizzare il comando: 

LIST 4 

Se poi si vuole memorizzare su cassetta il programma 
possono essere cancellate le linee 5000-5140, mentre 
diversamente è consigliabile conservare la routine di 
caricamento delle costanti così da potere ricaricare i 
valori in caso di occidentale pressione del tasto LIST. 
Avendo invece memorizzato su cassetta il programma è 
possibile ricaricarlo con le costanti corrette in casi ana¬ 
loghi. 

DESCRIZIONE GENERALE DEL PROGRAMMA 


1 

4-40 

42-98 

100-112 

114-320 

330-450 

460-550 

1000-1050 

1500-1550 

2000-2070 

2500-2570 

3000-3110 

5000-5140 


Linea per l'immagazzinamento delle co¬ 
stanti relative alle permutazioni degli ele¬ 
menti dei determinanti. 

Visualizzazione della spiegazione iniziale e 
di inizializzazione variabili 
Caricamento dei coefficienti e dei termini 
noti delle equazioni con relativo controllo. 
Controllo normalità e non omogeneità del 
sistema introdotto 

Calcolo del determinante fondamentale D e 
dei determinati Dx, Dy, Dz, Dt 
Visualizzazione del sistema introdotto 
Visualizzazione delle soluzioni e fine del 
programma. 

Subroutine che visualizza l’intestazione del 
programma. 

Subroutine che visualizza un messaggio di 
errore. 

Subroutine che legge il contenuto di una 
locazione determinata facente parte della 
codifica della linea 1, e traduzione in indici 
di permutazione. 

Subroutine che visualizza il coefficiente e la 
variabile ed il suo segno nella visualizzazio¬ 
ne delle equazioni componenti il sistema. 
Subroutine che visualizza per ciascuna va¬ 
riabile la soluzione o in forma intera o in 
forma frazionaria. 

Routine, da eseguire dopo la scrittura del¬ 
l’intero programma, che consente di cari¬ 
care nei byte costituenti la codifica della 
linea 1, a partire da quello di indirizzo 
16428, le costanti relative alle permutazioni 
degli elementi dei determinanti. 


Principali variabili utilizzate: 

V indirizzo 1° byte costanti di permutazione (16428) 
A(20) vettore contenente i coefficienti ed i termini noti 
delle equazioni componenti il sistema 
B(25) vettore calcolo dei determinati 
C(3) indici di permutazione 
Q(5) valori rispettivamente di D, Dx, Dy, Dz, e Dt 
L,M,N,O.F,G,H indici calcolati dalle permutazioni 
l,K,P,E,W indici dei ciclo 


SISTEMA 
4 EQUAZIONI 
IN 4 INCOGNITE 

v 
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SISTEMA 
4 EQUAZIONI 
IN 4 INCOGNITE 


/ 





















































































































































































SISTEMA 
4 EQUAZIONI 
IN 4 INCOGNITE 
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SUB 


SISTEMA 
4 EQUAZIONI 
IN 4 INCOGNITE 


SUB 


Q 


INTESTAZIONE 


D 


/ PCCEAR 7 

/ VIDEO / 


STAMPO 
'•••SOLUZIONE 
SISTEMA EQUAZ 


(rETURn) 


SUB 

( ERRORE ^ 


STAMPO 

ERRORE 

INPUT 


STAMPO 
/<N/L> PER 
r CONTINUARE , 


/ INPUT B $~J 


(RETURN^ 


SUB 



SUB 



36 

38 

40 

42 

44 

48 

50 

52 

54 

56 

58 

60 



REM ■■■■■■■■■■■■■■■■■■■■■■ 

LET V = 16428 
GO SUB 1000 

PRINT “RISOLUZIONE DI UN" 
PRINT"SISTEMA LINEARE DI 4 EQUAZIONI" 
PRINT “IN 4 INCOGNITE NORMALE" 

PRINT “E NON OMOGENEO" 

PRINT 

PRINT 

PRINT “<N/L> PER INIZIARE” 

PRINT “IL CARICAMENTO DELLE" 

PRINT “EQUAZIONI COMPONENTI 
PRINT “IL SISTEMA" 

INPUT B$ 

DIM A(20) 

DIM B(25) 

DIM C(3) 

DIM Q(5) 

FOR l=;0 TO 3 
GO SUB 1000 

PRINT “EQUAZIONE N. “;l +1 
PRINT 

PRINT “COEFF. X?”; 

INPUT A (1 -fl*5) 

PRINT A (1 +1*5) 

PRINT “COEFF. Y ?”; 

INPUT A (2 +1*5) 
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62 

64 

66 

68 

70 

72 

74 

76 

78 

80 

82 

84 

86 

88 

90 

92 


INPUT 

COSTANTI 



PRINT A(2 +1*5) 

PRINT “COEFF.Z?; 

INPUT A(3 +1*5) 

PRINT A(3 +1*5) 

PRINT “COEFF. T?”; 

INPUT A(4 +1*5) 

FOR K =1 TO 4 

IF NOT A(5*l +K) =0 THEN GO TO 84 
NEXT K 
GO SUB 1500 
GO TO 44 
PRINT A(4 +1*5) 

PRINT "TERMINE NOTO?"; 

INPUT A(5 +1*5) 

PRINT A(5 +1*5) 

PRINT 


94 PRINT “<N/L> PER CONTINUARE” 

96 INPUT B$ 

98 NEXT I 

100 FOR I =1 TO 5 

102 K =0 TO 3 

104 IF NOT A(l +K*5) =0 THEN GO TO 112 

106 NEXT K 

108 GO SUB 1500 

110 GOTO 42 

112 NEXT I 

114 FORP=1T0 5 

116 LET K =0 

118 LET L =1 

120 GO SUB 2000 

122 LET 0 = 0(1) 

124 LET N = C(2) 

126 LET M = C(3) 

128 IF P =1 THEN GO TO 180 

130 IF P =2 THEN LET L =5 

140 IF P =3 THEN LET M =5 

150 IF P =4 THEN LET N =5 

170 IF P =5 THEN LET O =5 

180 LET K =0 

190 LET D =0 

200 FOR E =1 TO 4 

210 FOR W =0 TO 5 

212 GO SUB 2000 

214 LET H = C(1) 

216 LET G = C(2) 

218 LET F = C(3) 

230 LET D = D+1 

240 LET B(D) = (( -1)**W)*A ((E -1)*5 + L)* A ((F 

- 1)* 5+M)*A ((G - 1)*5+M)* A ((H-1)* 5+ O) 
250 NEXT W 

260 NEXT E 

270 LET Q(P) = B( 1 ) 

280 FOR 1=2 TO 25 

290 LET Q(P) = Q(P) + B(l) 

310 NEXT I 

320 NEXT P 

330 GO SUB 1000 

340 PRINT “IL SISTEMA:” 

350 PRINT 

370 FOR 1=0 TO 3 

390 FOR K=1 TO 4 

400 GO SUB 2500 

410 NEXT K 

420 PRINT ‘ — A”; A(l*5+5) 

430 NEXT I 

450 PRINT 

460 PRINT “HA LE SOLUZIONI:” 

470 PRINT 

480 FOR 1=2 TO 5 

490 IF 1=2 THEN PRINT "x = A”; 

500 IF 1=3 THEN PRINT “y = A"; 

510 IF 1=4 THEN PRINT “z = A”' 

520 IF 1=5 THEN PRINT “t = A”; 

530 GO SUB 3000 
540 NEXT I 

550 STOP 


1000 CLS 

1020 PRINT SOLUZIONE SISTEMA EQUAZ. *** 

1040 PRINT 
1045 PRINT 
1050 RETURN 
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SISTEMA 
4 EQUAZIONI 
IN 4 INCOGNITE 

_ J 


1500 PRINT 
1505 PRINT 

1510 PRINT.ERRORE INPUT ***" 

1520 PRINT 

1535 PRINT “<N/L> PER CONTINUARE” 

1540 INPUT B$ 

1550 RETURN 


2000 LET U = PEEK (U + K) + 100 

2010 IF (U/IO)* 10=U THEN LET U=U/10 -f400 

2020 FOR 1=1 TO 3 

2030 LET C(l)= U-(U/10)*10 

2040 LET U = U/10 

2050 NEXT I 

2060 LET K=K + 1 

2070 RETURN 


2500 IF A(l*5+K)=0 THEN RETURN 
2520 IF A(l*5+K)>0 THEN PRINT “+A”; 

2522 IF A(l*5+K)<0 THEN PRINT "-A"; 

2524 IF NOT ABS(A(I*5+K)) =1 THEN PRINT ABS 
(A(l*5+K)); 

5230 IF K=1 THEN PRINT “x”; 

2540 IF K=2 THEN PRINT “y"; 

2550 IF K=3 THEN PRINT “z”; 

2560 IF K=4 THEN PRINT “t”; 

2565 PRINT “A”; 

2570 RETURN 


3000 LET X=Q(I)/Q(1) 

3010 IF NOT Q(1 )* X=Q(I) THEN GO TO 3040 
3020 PRINT X 
3030 RETURN 

3040 IF Q(l)>0 AND Q(1)<0 OR Q(l)<0 AND Q(1)> 

0 THEN PRINT (”; 

3080 PRINT ABS (Q(l)); 7”; ABS (Q(1)); 

3090 IF Q(I)>0 AND Q(1)<0 OR Q(l)<0 AND Q(1)> 

0 THEN PRINT 

3100 IF Q(l)>0 AND Q(1)>0 OR Q(l)<0 AND Q(1)< 

0 THEN PRINT 
3110 RETURN 

5000 GO SUB 1000 

5010 PRINT “INIZIO INPUT COSTANTI” 

5020 PRINT 

5030 PRINT “LOCAZ. AA CONT. AAA 
LOCAZ. AA CONT.” 

5040 PRINT 

5050 LET V=16428 
5060 FOR 1=0 TO 23 

5070 PRINT V-H, 

5080 INPUT J 

5090 POKE V+l, J 

5100 PRINT PEEK (V + I), 

5110 NEXT I 

5120 PRINT 

5125 PRINT 

5130 PRINT “FINE INPUT COSTANTI" 

5140 STOP 

_ / 


IL LABIRINTO 


Autore: R. Rozzi 
Programma utilizzante: 

4 K di memoria 


Questo programma genera e visualizza un labirinto. 

Il giocatore dovrà percorrere il labirinto cercando di 
raggiungere l’uscita, non è detto che ogni labirinto di¬ 
sponga di una via d'uscita, ma se essa esiste non è 
difficile trovarla. 

Il labirinto viene creato e visualizzato riga per riga 
utilizzando il vettore w di 32 posizioni, ogni riga è otte¬ 
nuta modificando le precedenti, eseguendo più volte il 
programma avremo labirinti sempre differenti. 


Descrizione programma 
5-130 SPIEGAZIONI 

140 - 240 CREAZIONE PRIMA LINEA 

340 - 470 CREAZIONE LINEE SUCCESSIVE 


5 PRINT 

10 PRINT 

11 PRINT 
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15 PRINT “IL PROGRAMMA COSTRUISCE DEI" 

20 PRINT "LABIRINTI DA CUI DEVI CERCARE" 

25 PRINT “DI USCIRE. LA ENTRATA E" 

26 PRINT "POSTA NELLA PARTE SUPERIORE" 

27 PRINT “DELLO SCHERMO.” 

28 PRINT 

30 PRINT “QUANDO SEI PRONTO DAI N/L” 

35 INPUT 1$ 

40 CLS 

100 DIM W(32) 

110 PRINT 

120 PRINT "PROVA A USCIRE DA QUI” 

122 PRINT “BUON DIVERTIMENTO ...” 

130 PRINT 

140 LET W(1 )=2 

150 LET W(32)=130 

160 FOR 1=2 TO 31 

170 LETW(I)=3 

180 NEXTI 

190 LET X=RND (20) 

200 LET W(X)=2 

210 LET W(X+6) =130 

220 FOR 1=2 TO 5 

230 LET W(X-f-l)=0 

240 NEXT I 

300 FOR L=1 TO 15 

310 FOR 1=1 TO 32 

320 PRINT CHR$ (W(l)); 

330 IF 1=1 OR 1=32 THEN GOTO 500 
340 IF W(l) <3 THEN GOTO 450 

350 IF W(l) >3 THEN GOTO 400 

360 LET X= RND(8) 

370 IF X <3 THEN LET W(l)=2 
380 IF X=8 THEN LET W(l)=7 
390 GOTO 500 

400 LET W(I)=1+RND (2) 

410 GOTO 500 

450 LET X=RND (5) 

460 LET W(l)= 1+X/2 

470 IF X=1 THEN LET W(l)=7 

500 NEXTI 

510 NEXT L 

520 PRINT 

525 PRINT 

530 PRINT “VUOI GIOCARE ANCORA (S/N)?” 

540 INPUT R$ 

550 IF R$ = "N” THEN STOP 

560 CLS 

570 GOTO 100 
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HAI MEMORIA? 


f 




Autore: P. Ciceri 
Programma utilizzante: 

4 K di memoria 


Il programma permette di provare le capacità della 
propria memoria. Viene generata casualmente una se¬ 
quenza di lettere che il giocatore dovrà cercare di tenere 
a mente e riscrivere. Ad ogni tentativo esatto ZX-80 
aggiungerà un’altra lettera alla sequenza. 

La parte più interessante del programma è l’uso dei 
caratteri 8x8 da parte del calcolatore perla rappresenta¬ 
zione della nuova lettera della sequenza, non ci adden¬ 
triamo comunque nei particolari in quanto esiste un 
programma (Caratteri 8x8) che tratta specificatamente 
l’argomento. 
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Variabili usate 

P(7) Vettore per la stampa dei caratteri 8x8 
A(30) Vettore contenente i codici demme lettere della 
sequenza 

X Codice della nuova lettera della sequenza 
G,V Variabili per la stampa 8x8 
J Contatore caratteri della sequenza 
K,L,I Contatori 
V$ Variabile di comodo 

LISTING - HAI MEMORIA? - 

10 PRINT “ AGGIUNGERE 2 BLANKS 
*** HAI MEMORIA? ***" 

15 PRINT 
20 PRINT 

25 PRINT “IL GIOCO CONSISTE NEL RICOR¬ 
DARE” 

30 PRINT “UNA SEQUENZA DI CARATTERI CHE" 
35 PRINT “ZX-80 TI VISUALIZZA" 

40 PRINT “AD OGNI TENTATIVO IL GIOCO” 

45 PRINT “DIVENTA PIU’ DIFFICILE IN QUANTO” 
50 PRINT “VIENE AGGIUNTO UN ALTRO CA¬ 
RATTERE" 

55 PRINT 

60 PRINT “QUANDO SEI PRONTO DAI N/L” 

65 INPUT V$ 

70 CLS 

100 DIM A(30) 

110 LET J= -1 

120 RANDOMISE 

130 DIM P(7) 

140 FOR 1=0 TO 7 

150 LET P(l)=2 ** (7-1) 

160 NEXT I 

200 LET x= RND(26) -f- 37 

210 CLS 

220 PRINT "PROSS.CARR.” 

230 FOR L=0 TO 7 

240 LET V= PEEK (3584+ L+8*X) 

250 FOR K=0 TO 7 

260 LET G= (V AND P(K))> 0 

270 PRINT CHR$ (-128 * G); 

280 NEXT K 

290 PRINT 

300 NEXT L 

400 IF x=15 THEN GO TO 700 

410 LETJ=J+1 

420 IF J=31 THEN GO TO 800 

430 LET A(J) = x 

440 PRINT “SCRIVI LA SEQUENZA” 

450 INPUT A$ 

460 PRINT A$ 

470 FOR 1=0 TO J 

480 LET X= CODE (A$) 

490 IF NOT A(l)=x THEN GO TO 600 
500 LET A$ = TL$ (A$) 

510 NEXT I 

520 GO TO 200 

600 LET x=15 

610 GO TO 230 

700 PRINT “SPIACENTE ERA:” 

710 FOR 1=0 TO J 

720 PRINT CHR$ (A(l)); 

730 NEXT I 

740 STOP 

800 PRINT "ECCEZIONALE SE UN GENIO” 
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CARATTERI 8x8 


Autore: P. Ciceri 
Programma utilizzante: 

4 K di memoria 


Questo programma illustra una possibilità del Sin¬ 
clair, cioè la possibilità di visualizzare caratteri in un 
formato otto volte superiore al normale per mezzo di 
una routine. 

La routine di visualizzazione è costituita dalle linee 
comprese tra la 40 e la 160, linee che potranno essere 
inserite in un qualsiasi programma come routinequalo- 
ra si verifichi la necessità di visualizzare caratteri in 
formato 8x8 (vedi Hai memoria?). 

É inoltre possibile con questo programma avere una 
tabella dei codici ASCII inserendo un numero minoredi 
zero alla richiesta di codice carattere. 


10 CLS 

15 PRINT “ *** CARATTERI 8x8 ***” 

17 PRINT 
20 DIM P(7) 

25 PRINT “PER LA TAB. CODICI DARE UN COD. 

< 0 " 

26 PRINT 

30 PRINT “COD. CARATTERE = (>0)” 

40 INPUT x 

45 IF X <0 THEN GO TO 500 
50 FOR 1=0 TO 7 
60 LET P(l) = 2 ** (7-1) 

70 NEXT I 
90 FOR 1=0 TO 7 
100 LET V= PEEK (3584+1+8 * X) 

110 FOR KirO TO 7 

120 LET G= (V AND P(K)) > 0 

130 PRINT CHR$ (-128*G); 

140 NEXT K 
150 PRINT 
160 NEXTI 

170 PRINT “ANCORA (S/N)?” 

180 INPUT R$ 

190 IF R$ =“N” THEN STOP 

200 GO TO 10 

500 LET R=1 

505 CLS 

510 PRINT"" TABELLA CODICI” 

520 PRINT 

535 PRINT “-COD - CAR-COD -CAR 

530 FOR K=0 TO 31 

540 PRINT "AA”; R+K, CHR$ (R+K); “AAA”; 

R+H+1, “AAA”; CHR$ (R+K+1) 

545 LET K=K+1 
550 NEXT K 

560 PRINT “CAMBIO PAGINA = >” 

570 INPUT R$ 

580 IF R$ = “N" THEN GO TO 620 

590 IF R=1 THEN GO TO 605 

592 LET R=1 

600 GO TO 505 

605 LET R=33 

610 GO TO 505 

620 CLS 

630 GO TO 15 
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V. 


Autore: S. Papes 
Programma utilizzante: 

4 K di memoria 



CORSA 
DI CAVALLI 


A 


J 


Questo programma riproduce una corsa di cavalli. 

Il numero dei cavalli concorrenti è di quattro 
(A,B,C,D). La gara si svolge in un circuito con lo svilup¬ 
po di giri (Z) desiderato dal giocatore. Ad ogni cavallo 
corrisponde un pronostico (contenuto nel vettore O di 
indice I) creato casualmente che naturalmente può inci¬ 
dere sul corso della gara. Il vettore D di indice I (i valori 
da 1 a 4) contiene le posizioni intermedie e finali dei 
rispettivi cavalli. 

In D(0) è memorizzata la posizione del cavallo in testa 
mentre J indica quale cavallo conduce la gara. 

In questo gioco può partecipare un solo giocatore per 
ogni corsa che dispone inizialmente di una somma pari 
a L.100. Ad ogni corsa il giocatore scommette una som¬ 
ma (B) che naturalmente deve essere non maggiore 
delle proprie disponibilità (M). Il cavallo su cui si è 
puntato è indicato da H$. 

La prima parte del programma (fino all'istruzione 300) 
escludendo il sottoprogramma (100 -140) è una fase di 
inizializzazione della corsa e consiste nell’azzeramento 
dei vettori nonché nella richiesta della somma puntata e 
del cavallo scommesso. Il sottoprogramma sopra indi¬ 
cato è una routine che permette la visualizzazione della 
situazione della gara alla conclusione di ogni giro. 

La gara vera e propria si svolge nella parte sucessiva, 
aM’interno del ciclo che inizia con l’istruzione 340, men¬ 
tre nell’ultima fase avviene l'aggiornamento della dispo¬ 
nibilità del giocatore. 












































40 

45 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

215 

220 

230 

235 

240 

250 

260 

265 

270 

280 

290 

300 

310 

320 

330 

335 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

473 

474 

475 

476 

480 

500 

510 

515 

520 

530 

540 

550 

560 

570 

580 

590 

600 




PRINT “*** CORSA DI CAVALLI. 

PRINT 

RANDOMIZE 

DIMO(4) 

DIM D(4) 

LET M - 100 
GO TO 180 
PRINT I, 

FOR C = 1 TO D 

PRINT.; 

NEXT C 
RETURN 
FOR I = O TO 4 
LET D(l) = 0 
NEXT I 

PRINT “HAI UNA DISPONIBILITÀ’ DI L.”;M 
PRINT 

PRINT “I PRONOSTICI SONO" 

PRINT 

FORI = 1 TO 4 

LET 0(1) = RND (9)+1 

PRINT CHR$ (14-37), 0(l);71" 

PRINT 
NEXT I 

PRINT “QUANTO SCOMMETTI E PER QUALE 
CAVALLO” 

INPUT B 
INPUT H$ 

IF NOT B = 0 THEN GO TO 320 
IF Y 1 THEN GO TO 600 
LET Y = 1 

PRINT “SPUTA LA LIRA, ALTRIMENTI NON 
GIOCHI” 

GO TO 250 
LET y=0 

PRINT "SU QUANTI GIRI DEVE SVOLGERSI 
LA GARA?" 

INPUT z 

FOR L=1 TO z 

CLS 

PRINT “GIRO”; L 
FOR1=1 TO 4 

LET D(l)=D(l)4-5+7/0(l)4-RND(2-0(l)/3) 

IF (D(l) > D(O) THEN LET D(0)=D(l) 

IF D(O) = D(l) THEN LET J =1 
NEXT I 

FORI = 1 TO 4 
PRINT CHR$ (14-37) 

LET D = D(l) - D(0) 4- 15 

GO SUB 100 

PRINT 

NEXT I 

PRINT 

PRINT “QUANDO HAI VISTO LA SITUAZIONE” 
PRINT “PREMI IL TASTO NEW LINE" 

INPUT R$ 

NEXT L 

PRINT “IL VINCITORE È"; CHR$ (J 4- 37) 

PRINT 

LET S = 0 

IF CODE (H$) = (J4-37) THEN LET S=1 
LET M=M - B 4- S * B * O(J) 

IF M > 0 THEN GO TO 570 
PRINT “HAI FINITO LA SOMMA” 

GO TO 600 

PRINT “PREMI IL TASTO N SE VUOI SMET¬ 
TERE" 

INPUT D$ 

IF NOT D$ = “N" THEN GO TO 150 
STOP 


/ 


CARICATORE 

ASSEMBLER 


Autore: P. Ciceri 
Programma utilizzante: 

4 K di memoria 


Il programma permette di caricare programmi in lin¬ 
guaggio macchina, farli eseguire e controllare aree con¬ 
tigue di memoria sia RAM che ROM. Esso si divide in 
una parte principale e da tre routine che adempiano 
ciascuna ad una funzione particolare. 

Parte principale 

Dopo avere stampato una lista di opzioni permette 
all’utente di selezionarne una particolare. Se viene scrit¬ 
to END si esce dall’esecuzione. 

Routine WRT: 

Questa routine permette di scrivere nella memoria 
utente, possono essere scritti programmi in linguaggio 
macchina, dati ecc. (si richiama il programma Routine 
assembler per una più completa trattazione sull’uso del 









































































linguaggio macchina). La routine WRT comprende tre 
opzioni F per uscire, I per scrivere l'indirizzodi partenza 
ed S per la scrittura effettiva. Per uscire durante la scrit¬ 
tura dare un numero minore di zero. Viene segnalato 
errore se si cerca di scrivere senza avere prima dato 
l’indirizzo di partenza. 

Routine RUN: 

Permette di eseguire programmi in linguaggio mac¬ 
china partenti da un indirizzo dato in input. Per uscire 
dalla routine dare un numero minore di zero alla richie¬ 
sta di indirizzo. Viene ritornato il valore della funzione 
USR (I) dove I è l’indirizzo dato. 

Routin MON: 

Permette di controllare aree di memoria comprese tra 
due indirizzi specificati. Può essere usata per controlla¬ 
re aree di memoria ROM o per rileggere ciò che si è 
appena scritto con la routine WRT. Se il numero di 
locazioni di memoria supera le capacità del video richie¬ 
sto un cambio pagina che continuerà la visualizzazione 
da dove era stata interrotta. 


CARICATORE ASSEMBLER 



ROUTINE DI SCRITTURA WRT 
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CARICATORE 

ASSEMBLER 


ROUTINE DI ESECUZIONE RUN 



LISTING - CARICATORE ASSEMBLER 

10 REM CARICATORE ASSEMBLER Z 80 
20 PRINT 

30 PRINT “AA**'CARICATORE ASSEMBLER*"” 

40 PRINT 

50 PRINT 

60 PRINT “AAAAA - LISTA OPZIONI 
70 PRINT 

80 PRINT “WRT - SCRITTURA” 

90 PRINT "RUN - ESECUZIONE" 

100 PRINT "MON-LETTURA” 

110 PRINT " END - FINE” 

120 PRINT 

130 PRINT “AA OPZIONE = >”; 

140 INPUT A$ 

150 CLS 

160 IF A$ = “WRT" THEN GO TO 1000 

170 IF A$ = “RUN" THEN GO TO 2000 

180 IF A$ = “MON” THEN GO TO 3000 

190 IF A$ = "END” THEN STOP 

200 PRINT "-CODICE ERRATO-” 

210 GO TO 40 
1000 REM ROUTINE WRT 
1010 LET F=0 

1020 PRINT “AAAAA - LISTA OPZIONI -” 

1025 PRINT 

1030 PRINT “I - IND. INIZIO PROG." 

1040 PRINT “S -SCRITTURA" 

1050 PRINT “F-FINE" 

1060 PRINT 

1070 PRINT "AA OPZIONE =>” 

1080 INPUT B$ 
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1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1215 

1217 

1220 

1230 

1235 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

2000 

2005 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

3000 

3010 

3020 

3025 

3030 

3040 

3045 

3050 

3060 

3070 

3090 

3100 

3110 

3120 

3130 

3140 

3145 

3150 

3160 

3170 

3180 

3190 

3195 

3200 

3210 

3220 

3230 


\ 


CLS 

IF B$ = “F" THEN GO TO 40 

IF B$ = "I" THEN GO TO 1150 

IF B$ = “S" THEN GO TO 1200 

PRINT CODICE ERRATO 

GO TO 1020 

PRINT 

INPUT I 

LET F = -1 

PRINT 

GO TO 1020 

IF NOT F THEN PRINT ERRORE MANC/ 
IND. INIZIALE” 

IF NOT F THEN GO TO 1060 
LET C=1 

PRINT "PER USCIRE DARE UN NUM < 0” 

PRINT 

INPUT D 

PRINT 

IF D <0 THEN CLS 

IF D <0 THEN GO TO 1020 

IF C=10 THEN CLS 

IF C=10 THEN LET C=0 

LET C= C+1 

PRINT I; ”;D 

POKE 1, D 

LET 1= 1+1 

GO TO 1220 

REM ROUTINE RUN 

PRINT “PER USCIRE DARE UN NUM <0" 
PRINT 

PRINT “AA IND. INIZIO ROUTINE” 

INPUT I 

IF I <0 THEN CLS 

IF I < THEN GO TO 20 I < 0 

LET A= USR(I) 

PRINT 

PRINT “AA RISULTATO = >”; A 
PRINT 

PRINT ..***********“ -• 

GO TO 2010 

REM ROUTINE MON 

PRINT “IND. INIZIALE = >” 

INPUT R 
CLS 

PRINT "IND. FINALE = >” 

INPUT T 

PRINT 

CLS 

LET P=1 

PRINT "—IND—CONT—IND—CONT—" 
PRINT “A”; R, “AA”; PEEK (R), 

LET R= R+1 

IF R= (T+1) THEN GO TO 3190 
PRINT R, “A”; PEEK (R) 

LET R= R+1 

IF R= (T+1) THEN GO TO 3190 
LET P= P+1 

IF NOT P=16 THEN GO TO 3090 
PRINT “CAMBIO PAGINA >”; 

INPUT R$ 

GO TO 3050 
PRINT 

PRINT “ALTRI CONTROLLI (S/N)?”; 

INPUT R$ 

CLS 

IF R$ = “S” THEN GO TO 3010 
GO TO 20 


J 


c 


NUMERI PRIMI 


Autore: S. Papes 
Programma utilizzante: 

4 K di memoria 


Questo programma ricerca tutti i numeri primi com¬ 
presi tra O ed M (richiesto in input). 

Questi vengono in seguito memorizzati in un vettore A 
e quindi visualizzati. 

Per permettere una gestione ottimale di questo vetto¬ 
re si fa uso oltre a Y di un altro indice R che punta alla 
ultima locazione occupata. 

Per verificare se un numero è primo o meno si com¬ 
piono una serie di test, nei quali il numero da esaminare 
viene diviso con i numeri primi contenuti in A: se il 
risultato è un intero, il numero risulta divisibile e quindi 
non primo, in caso contrario si incrementa R e si memo¬ 
rizza in A(R) il numero. 

Per sveltire l’elaborazione si è usato un accorgimento; 
infatti il numero preso in considerazione non è diviso 
per tutti i numeri primi contenuti in A ma solo con quelli 
minori della propria radice quadrata in quanto se non 
esiste un divisore tra questi non potrà matematicamente 
esisterne tra quelli maggiori. 


80 

90 

100 

110 

120 

130 

135 

140 

145 

147 

150 

160 

170 

180 

190 

200 

210 

220 

230 

235 

240 

250 

260 


V. 


PRINT “*** NUMERI PRIMI ***” 

PRINT 
DIM A (75) 

LET R=1 
LET A (1) = 2 

PRINT “SCRIVI IL NUMERO FINO A CUI SI" 
PRINT “DEVONO RICERCARE I NUMERI PRIMI” 


INPUT M 
PRINT 

PRINT A (1); “A”; 

FOR X=1 TO M 

IF X > A(R)** 2 THEN GO TO 210 

FOR Y = 1 TO R 

IF A(Y)‘* 2 > X THEN GO TO 210 

IF X = (X/A(Y))*A(Y) THEN GO TO 240 


NEXT Y 

LET R = R + 1 
LET A(R) = X 
PRINT X; “A”; 

IF R = (R/5)*5 THEN PRINT 
LET X = X + 1 
NEXT X 
STOP 


X 
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/- 

s__ 

Autore: R. Glbelli 
Programma utilizzante: 

4 K di memoria 

r - 


RIPASSO 

TABELLINE 


CODIFICA 


Il programma in questione genera le tabellinedall’1 al 
12 . 

Possiamo suddividelo in due fasi principali. 

La prima crea la tabellina del numero chiesto dall’e¬ 
sterno, ne stampa i primi 12 valori e chiede se si vuole 
proseguire con la stampa di altre tabelle. 

In caso affermativo il ciclo di ripete altrimenti viene 
mandata in esecuzione la seconda fase. 

Con la seconda fase inizia l'esame di ripasso delle 
tabelline. 

Si chiede quanti quesiti si desiderano ed il tempo 
disponibile per rispondere ad ognuno di essi. 

Mediante Random vengono creati due valori che co¬ 
stituiranno la domanda in questione. 

Dal momento in cui viene posta la domanda un appo¬ 
sito contatore calcolerà il tempo che intercorrerà tra 
questa e la risposta. Verrà quindi stampato se la risposta 
è esatta o meno. Nel 1° caso verranno stampati i compli¬ 
menti ed il tempo impiegato perpoi passareal prossimo 
quesito. 

nel 11° verrà stampato il messaggio di errore e si passerà 
alla domanda successiva. 



10 PRINT “RIPASSO TABELLINE" 

20 PRINT 

40 CLS 

100 PRINT QUALE TABELLINA VUOI RIPASSARE? 

103 FOR R=1 TO 32 

104 PRINT 

105 NEXT R 

106 PRINT 

107 PRINT 

110 INPUT V 

115 PRINT 

120 FOR S=1 TO 12 

130 LET Z = V*S 

140 PRINT V; S; “=”; Z 

160 NEXT S 

165 PRINT 

167 PRINT 

170 PRINT “VUOI RIPASSARNE ANCORA UNA?" 

180 INPUT A$ 

190 IF A$ =“SI" THEN GO TO 40 
195 CLS 

200 PRINT “INIZIO ESAME RIPASSO TABELLINE” 

210 PRINT 

220 PRINT 

230 PRINT "QUANTE DOMANDE VUOI?” 

240 INPUT A 

245 CLS 

250 PRINT “QUANTI SECONDI VUOI A DISPOSI¬ 
ZIONE PER RISPONDERE AD OGNI QUESITO?” 
260 INPUT B 

265 CLS 

270 FOR C = 1 TO A 

280 LET M= RND (12) 

290 LET N= RND (12) 

300 LET Q = M.N 

310 PRINT M;.; N; “=”; 

311 POKE 16414, 0 

312 POKE 16415, 0 

320 INPUT H 

321 LET F = PEEK (16414) + 256 * PEEK (16415) - 4 

325 PRINT H 

330 IF H=Q THEN GO TO 360 
340 PRINT "HAI SBAGLIATO” 

350 GO TO 390 

360 PRINT “ESATTO” 

365 PRINT 

370 IF B < F/50 THEN PRINT "RISPOSTA ESATTA 
MA FUORI TEMPO” 

375 PRINT 

380 PRINT “HAI IMPIEGATO ESATTAMENTE"; F/50; 

"SECONDI” 

390 PRINT 

400 PRINT “PER CONTINUARE PREMI IL TASTO 
(NEW LINE)” 

410 INPUT D$ 

420 CLS 

430 NEXT C 

440 STOP 


V. 
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j INPUT H J 





F=PEEK (16414) +256* PEEK(16415)-4 


PRINT H 





PRINT "HAI 


PRINT “LA 

SBAGLIATO " 


RISPOSTA E' 



ESATTA MA SEI 



USCITO DAL TEMPO 



predisposto; 


PRINT "HAI 
IMPIEGATO 
ESATTAMENTE " 
F/50 "SECONDI" 



PRINT "PER 
CONTINUARE 
PREMI IL TASTO 
(NEW LINE)" 


l INPUT A$ I 




PRINT "FINE 


F / \ T 

PROGRAMMA" 





( ~ ) 


J 
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“CHOMP” 


Autore: N. Cremaschi 
Programma utilizzante: 

4 K di memoria 


Questo programma riproduce un divertente gioco 
chiamato Chomp. 

Chomp: cioè mangiare un pezzo di formaggio, tutti 
insieme e poco alla volta; perde chi mangia l'ultimo 
pezzettino di formaggio. Si può giocare in due o più 
giocatori che faranno le proprie mosse alternativamen¬ 
te. Il pezzo di formaggio è rappresentato da una matrice 
7x7 di elementi tutti uguali che sono dei quadratini, 
tranne uno, il primo elemento della matrice che è rap¬ 
presentato da uno 0. Ogni concorrente nel suo turno di 
gioco deve mangiare un pezzettino di formaggio, cioè 
cancellare un pezzo della matrice. Questo è possibile 
farlo inserendo le coordinate di un quadratino, alla ri¬ 
chiesta fatta dal programma. Le coordinate vanno inse¬ 
rite sotto forma di un numero di due cifre di cui la prima 
rappresenta il numero della riga prescelta, la seconda il 
numero della colonna prescelta. 

Il programma provvederà automaticamente a cancel¬ 
lare i quadratini a destra del numero di colonna e al di 
sotto del numero di riga prescelto. Come si è detto 
perde il concorrente che mangia l'ultimo pezzettino di 
formaggio, quindi perde il concorrente che è costretto 
ad inserire le coordinate del punto 0. Il giocatore per¬ 
dente verrà segnalato dal programma mediante un mes¬ 
saggio. 



ANALISI 

La prima parte del programma è a carattere discorsi¬ 
vo; si stampa il nome del programma ealcunedomande 
per sapere se i concorrenti desiderano sapere le princi¬ 
pali regole del gioco. Nel caso in cui la risposta è affer¬ 
mativa faccio stampare le frasi esplificative che sono 
poste in fondo al programma; una volta fatto questo 
comincio il programma vero e proprio. Dimensiono un 
vettore di 49 elementi e svolgo il primo ciclo. 

I ciclo (180 - 210) riempie il vettore mettendo in ogni 
posizione il valore 6 che corrisponde al carattere grafico 
quadratino nella prima posizione il valore 52 che corri¬ 
sponde allo 0. 

A questo punto vi è la prima fase di input dove si 
chiede quanti sono i giocatori che partecipano e inizia- 
lizzo una variabile che servirà a determinare il turno di 
gioco dei concorrenti. 

II e III ciclo (260 - 330) sono due ciclo concatenati che 
mi permettono di stampare il contenuto del vettore co¬ 
me se fosse una matrice 7x7 con i loro rispettivi numeri ri 
riga. 

IV ciclo (350 - 370) con questo ciclo posso stampare il 
numero delle colonne della matrice visualizzandoli op¬ 
portunamente sotto la rispettiva colonna. 

Aquesto puntosi può considerare finita la prima parte 
del programma che consiste nel far visualizzare all’uten¬ 
te il gioco, mediante la stampa della matrice. 

Ora si può cominciare a giocare. 

Chiedo in INPUT dal primo giocatore le coordinate 
del quadratino prescelto e controllo se sono giuste altri¬ 
menti torno a chiedere le coordinate. 

Mendiante alcuni artifici si creano delle variabili che si 
servono per individuare la posizione dei quadratini da 
cancellare nel vettore a seconda della scelta fatta dal 
giocatore nella matrice. Con dei controlli mi assicuro 
che le coordinate siano esatte, cioè che rappresentino 
una posizione del vettore, e che quella posizione non sia 
già stata cancellata. 

Se le coordinate non sono esatte stampo messaggi di 
errore e torno aH’input. 

Se la coordinata e quella dello 0 stampo che il gioca¬ 
tore che ha inserito queste coordinate ha perso. 

Se tutto è regolare cioè la coordinata rappresenta un 
quadratino svolgo V e VI ciclo (610 - 650) due cicli 
concatenati che mi cancellano la parte della matrice che 
voglio eliminare, cioè inseriscono al posto dei quadrati¬ 
ni tanti blank. 

Il giocatore ha così esaurito il suo turno di gioco e 
dopo aver pulito il video con opportune istruzioni passo 
al giocatore successivo e torno all’inizio del program¬ 
ma. 

Le ultime istruzioni sono la stampa di frasi esplicative 
che illuminano parzialmente sull’andamento del gioco. 
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/ INPUT N / 




CANCELLO VIDEO 

T 

J 1 




STAMPO 
GIOCATORE T 
INSERISCI LE 
COORDINATE 


/ INPUT A / 




STAMPO 
GIOCATORE T 
HAI PERSO 


STOP 



HZ> 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

235 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

375 

380 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

600 

610 

620 

630 

640 

650 

660 

670 

680 

700 

710 

800 

810 

820 

830 

840 
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CODIFICA 


r 


PRINT “CHOMP" 

PRINT 

PRINT 

PRINT 

PRINT “VUOI CONOSCERE LE PRINCIPALI 
REGOLE DEL GIOCO- 
INPUT U$ 

IF U$ = “SI" THEN GO TO 800 
DIM A(48) 

FOR 1=0 TO 48 
LET A(l) =6 
NEXT I 

LET A(0) = 52 

PRINT “QUANTI SONO I GIOCATORE- 

INPUT N 

CLS 

LET T=0 

LET T=T+1 

FOR L=0 TO 6 

LET J=7-L 

PRINT J 

FOR C=0 TO 6 

PRINT CHR$ (A(C+7*L)); “A”; 

NEXT C 
PRINT 
NEXT L 
PRINT, 

FOR C=1 TO 7 
PRINT C; "A"; 

NEXT C 
PRINT 

PRINT “GIOCATORE:”; T 

PRINT "INSERISCI LE COORDINATE- 

INPUT A 

IF A=0 THEN GO TO 410 
LET J= A/10 
LET C= A—10*J—1 
LET L= 7—J 
LET P=C -f 7 * L 

IF P < 0 OR P > 48 THEN GO TO 420 
IF A(P) > 0 THEN GO TO 600 
PRINT “SPAZIO VUOTO” 

GO TO 410 

IF P=0 THEN GO TO 700 

FOR J = L TO 6 

FOR l=C TO 6 

LET A (l+7*J)=0 

NEXT I 

NEXT J 

CLS 

IF T=N THEN LET T=0 
GO TO 250 

PRINT “GIOCATORE”; T; HAI PERSO -” 
STOP 

PRINT “CHOMP È UN GIOCO CHE È COSTI¬ 
TUITO DA UNA MATRICE 7x7 DI ELEMENTI 
TUTTI UGUALI” 

PRINT "TRANNE UNO IL PRIMO. POSSONO 
GIOCARE DUE O PIU' GIOCATORI. OGNI 
CONCORRENTE NEL SUO” 

PRINT “TURNO DI GIOCO PUÒ’ ELIMINARE 
UN CERTO NUMERO DI QUADRATINI. 
PERDE IL CONCORRENTE CHE RIMANE NEL 
SUO TURNO DI GIOCO” 

PRINT “CON SOLO L’ULTIMO ELEMENTO" 
GO TO 170 


L’IMPICCATO 


Autore: P. Ciceri 
Programma utilizzante: 

4 K di memoria 


Il gioco consiste nell’indovinare una parola segreta 
che un nostro amico ha precedentemente inserito. Il 
tentativo consiste nell’inserire una lettera che noi pen¬ 
siamo sia presente nella parola segreta, se c’è vedremo 
comparire nello schermo della parola la lettera nella sua 
giusta posizione, se invece ci siamo sbagliati si aggiun¬ 
gerà un pezzo aH’omino impiccato, dopo 10 errori si 
finisce impiccati e viene richieta una nuova parola se¬ 
greta. 

Se durante il gioco ci si arrende basta dare NEW LINE 
alla richiesta di tentantivo; se invece ci si è stancati di 
giocare si dà NEW LINE alla richiesta di parola segreta. 

Variabili usate 


x$ 

Parola segreta 

w 

Numero di lettere componenti X$ 

K 

Contatore tentativi 

A$ 

Tentativo, variabile di comodo 

B 

Codice ASCII tentativo 

G 

Contatore tentativi sbagliati 

C 

Flag 

N, L 

Contatori 

A (W) 

Vettore tentativi 



J 


V. 
















GO TO 300 
PRINT “■■■" 

RETURN 
PRINT “■■■" 

RETURN 
PRINT “AAAB” 

RETURN 
PRINT “AA B" 

RETURN 

PRINT “AA’; CHR$(135); CHR$(135); "B” 
RETURN 

PRINT “AA”; CHR$(134); 

RETURN 

PRINT CHR$(134); “E” 

RETURN 

PRINT “AA";CHR$(130); CHR$(128) 
RETURN 



05 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 
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170 PRINT"AA”;CHR$(132) 

180 RETURN 

190 PRINT CHR$(130); “O” 

200 RETURN 

210 FOR L=1 TO G 

220 IF G=0 THEN GO TO 250 

230 GO SUB 20*L-10 

240 NEXT L 

250 PRINT 

260 PRINT 

270 IF G=10 THEN GO TO 290 

280 GO TO 490 

290 PRINT “IMPICCATO" 

300 PRINT 

310 PRINT “INSERISCI LA PAROLA SEGRETA” 

320 INPUT X$ 

330 IF X$— THEN GO TO 900 
340 CLS 

350 LET W=1 

360 LET A$= X$ 

370 FOR L=1 TO 20 

380 LET A$ = TL$ (A$) 

390 IF A$ = “” THEN GO TO 420 
400 LET W = W+1 

410 NEXT L 

420 DIM A (W) 

430 FOR L=r1 TO W 

440 LET A (L)=0 

450 NEXT L 

460 PRINT "LA PAROLA CONTIENE A”; W; "A LET¬ 
TERE” 

470 LET G=0 

480 LET K=1 

490 PRINT “TENTATIVO A”; K;” = >” 

500 INPUT A$ 

510 CLS 

520 IF A$ = “" THEN GO TO 540 
530 GO TO 570 

540 PRINT “HAI ABBANDONATO DOPO A”; K; “A 
TENTATIVI” 

550 PRINT “LA PAROLA ERA A”; X$ 

550 CLEAR 

560 GO TO 300 

570 LET K=K+1 

580 LET B= CODE (A$) 

590 LET A$ = X$ 

600 LET C=0 

610 FOR L=1 TO W 

620 IF B= CODE (A$) THEN LET A (L)=B 

630 IF A (L)=B THEN LET C-1 

640 LET A$ = TL$ (A$) 

650 NEXT L 

660 IF C=0 THEN LET G=G-f 1 

670 LET N=W 

680 FOR L—1 TO W 

690 IF A(L)= THEN PRINT 

700 IF A(L) =0 THEN GO TO 730 

710 LET N=N-1 

720 PRINT CHR$ (A(L)); 

730 NEXT L 

740 PRINT 

750 PRINT 

760 IF NOT N=0 THEN GO TO 210 

780 PRINT “HAI INDOVINATO LA PAROLA” 

790 GO TO 300 

900 PRINT 

910 PRINT “ARRIVEDERCI ALLA PROSSIMA VOL¬ 
TA” 
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GIORNI DELLA 
SETTIMANA 


Autore: A. Pianamente 

Programma utilizzante: 

4 K di memoria 


Questo programma permette di soddisfare la nostra 
curiosità nel caso volessimo sapere in quale giorno del¬ 
la settimana siamo nati. Per ottenere ciò, basta inserire 
la data di nascita completa, al momento dell'esecuzione 
del programma, ovviamente quando viene richiesta. 

Premettiamo innanzitutto, però, che vi sono dei limiti 
per quanto riguarda il funzionamento del programma, 
ossia vengono fornite risposte solo per date che vanno 
dal 1700 in poi. Detto ciò vediamo di comprendere con 
quale tecnica il programma riesce a fornire tali risposte, 
cioè descriviamo l’algoritmo utilizzato. Distinguiamo 
due casi a secondo se l’anno è bisestile oppure no; a 
questo punto utilizzando due laboriosi calcoli, che non 
stiamo a precisare, determiniamo quali caratteri della 
stringa D$ considerare, avendo precedentemente me¬ 
morizzato in D$ i caratteri corrispondenti ai 7 giorni 
della settimana. 

Il programma termina quanto alle richieste di una 
nuova elaborazione si risponde negativamente, altri¬ 
menti inserendo una nuova data il programma ripeterà 
l’operazione. 



C 


INIZIO 


J 


"QUESTO 
PROGRAMMA 
CALCOLA IL 
GIORNO IN CUI 
SEI NATO” 




NO 


Ino 

























































GIORNI DELLA 
SETTIMANA 


> 




CODIFICA 

PRINT “*** GIORNO DELLA SETTIMANA. 

PRINT 

PRINT “QUESTO PROGRAMMA CALCOLA IL" 
PRINT “GIORNO IN CUI SEI NATO” 

LET D$ = "DOMLUNMARMERGIOVENSAB" 
PRINT 

PRINT “COME TI CHIAMI?” 

INPUT A$ 

PRINT “CIAO"; A$ 

PRINT 

PRINT “QUANDO SEI NATO?: GIORNO", 
INPUT D 

IF D <1 OR D >31 THEN GO TO 160 
PRINT D, “MESE”, 

INPUT M 

PRINT M, “ANNO” 

INPUT Y 
PRINT 

IF Y < 1700 THEN PRINT A$, “È TROPPO VEC¬ 
CHIO PER ME" 

IF Y < 1700 THEN GO TO 440 
CLS 

LET K=0 

IF M=1 OR M=2 THEN LET Kzzl 
LET L=Y-K 
LET 0=M+12*K 
LET P = L/100 

LET Z=(13*(0+1))/5+(5*L)/4-P+P/4+D-1 
LET Z= Z—7* (Z/7)+1 
FOR I zz 1 TO Z * 3 
LET D$ = TL$ (D$) 

NEXT I 

PRINT A$; “SEI NATO DI”; CHR$ (CODE (D$)); 
LET D$ = TL$ (D$) 

PRINT CHR$ (CODE (D$)); CHR$ (CODE (TL$ 
(D$))) 

PRINT “ANCORA?" 

INPUT A$ 

IF CODE (A$)zz56 THEN GO TO 110 
PRINT "ARRIVEDERCI DA ZX-80” 

PRINT 


90 

95 

100 

105 

110 

115 

120 

130 

140 

145 

150 

160 

170 

180 

190 

200 

210 

215 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

400 

410 

420 

440 

450 

460 

470 

475 
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GIOCO DEL TRIS 

/- 


Autore: M. Lefons 
Programma utilizzante: 

4 K di memoria 


li seguente programma realizza l’algoritmo per il cosi¬ 
detto "gioco del tris". Gioco che consiste nel riusciread 
allineare 3 pedine in un quadrato diviso in 9 parti: asse¬ 
gnate le rispettive pedine a 2 giocatori essi le devono 
alternativamente porre nelle 9 sezioni del quadrato in 
modo da ottenere una sequenza consecutiva orizzonta¬ 
le, verticale o diagonale formata, appunto, da 3 pedine 
uguali. Vince chi riesce a realizzare per primo una terzi¬ 
na. 

Il programma permette quindi di giocare a tris contro 
l'elaboratore ZX-80 che esegue di diritto la prima mossa 
ponendo una sua pedina (contrassegnata da una “X") 
nella zona contrale del quadrato. Le rimanenti 8 posizio¬ 
ni sono numerate in modo che il giocatore possa como¬ 
damente selezionare scrivendo il numero corrispon¬ 
dente. 

La visualizzazione su video di questa “griglia" quadra¬ 
ta di 9 sezioni avviene mediante cicli di stampa ridotti a 
sottoprogrammi interni. 

Essa quindi dipenderà ogni volta dal numero di sezio¬ 
ne scelto dal giocatore che causerà a sua volta una 
determinata scelta da parte dell’elaboratore avversario. 
La pedina del giocatore è contrassegnata da uno 0. 

Molto utile alla visualizzazione delle mosse è la fun¬ 
zione di stringa CHR$ (N) che permette di associare a 
determinati codici numerici le cifre da 1 a 8, la pedina X e 
a pedina 0: 

N CHR$(N) 

28 0 

29 1 

30 2 

31 3 

32 4 

33 5 

34 6 

35 7 

36 8 

37 9 

61 X 


Le linee dalla 10 alla 40 servonoalla visualizzazionedi 
alcuni messaggi di presentazione del gioco. 

Le linee 110-180 generano l’insieme di codici numeri¬ 
ci per la CHR$ che vengono posti nel. vettore A. 

Le linee 200-230-310 comprendono praticamente i 2 
sottoprogrammi di stampa della griglia (uno che parte 
dalla linea 200 e uno che parte dalla linea 230) che fanno 
uso della CHR$. 

Le linee 400-830 comprendono la parte di programma 
che si occupa di passare i giusti parametri alle sub a 


seconda delle mosse del giocare e una parte finale che 
visualizza il resoconto delle partite giocate e che elenca 
il numero di sconfitte e il numero di pareggi conseguiti. 
La vittoria infatti può essere solo dell’elaboratore per¬ 
chè a lui spetta di diritto la prima mossa. Il giocatore 
può, al massimo, non essere sconfitto e pareggiare la 
partita. 

RIPARTIZIONE DELLE SEZIONI E LORO NUMERA¬ 
ZIONE 

Ricordo che la prima mossa spetta di diritto all’elabo¬ 
ratore, la “griglia” iniziale che viene visualizzata è la 
seguente: 

1 2 3 

8X4 
7 6 5 

ELENCO VARIABILI, CONTATORI, INDICI 

Q = contatore sconfitte 

G = contatore pareggi 

F = contatore per la stampa della cornice di pre¬ 
sentazione gioco 

A$ = contiene la stringa risposta alla domanda di 
linea 27 

A() = vettore di 9 posizioni contenente gli indici 

numerici per la CHR$ 

J e I = sono le variabili-indici che, legate da operatori 
numerici, formano gli indici del vettore A 
A = contiene di volta in volta dei valori che, a 
seconda delle mosse del giocatore, vengono 
sommati ad altri valori per passare i giusti para¬ 
metri alle sub 

E zz flag di controllo mosse per la modifica di A 
(viene posto = -1 se la mossa del giocatore corri¬ 
sponde a una sezione contrassegnata da un nu¬ 
mero dispari. Le sezioni dispari sono quelle che 
occupano i 4 vertici del quadrato) 

R = contiene il numero di sezione selezionato del 
giocatore 

M = contiene di volta in volta dei valori che, som¬ 
mati a 28, danno il codice numerico (da ricercare 
nel vettore A) corrispondente al numero sezione 
della mossa richiestadalgiocatoreodellacontro- 
mossa voluta dall’elaboratore stesso 
V = contiene il valore 28 se la mossa da visualizzare 
è quella del giocatore (infatti CHR$(28) = 0), 
contiene il valore 61 se la mossa da visualizzare è 
quella dell’elaboratore (infatti CHR$(61) = X) 

T zz contatore mosse dopo le 2 iniziali (la prima 
dello ZX, la seconda del giocatore) 

P = ha in pratica la stessa funzione di A con l’unica 
differenza che P è la variabile che passa diretta- 
mente a M i valori-parametro che occorrono alle 
sub per la stampa 

B$ = contiene la stringa risposta alla domanda di 
linea 800. 
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GIOCO DEL TRIS 

-j 




310 

RETURN 



400 

LET A=0 



410 

LET E=0 



420 

PRINT "A ME LA PRIMA MOSSA” 



430 

GO SUB 230 



440 

PRINT “ESEGUI LA TUA PRIMA MOSSA- 



450 

INPUT R 



460 

CLS 



470 

IF R= 2 (R/2) 



480 

LET M=R 



490 

LET V=28 


CODIFICA BASIC 

500 

GOSUB 200 



510 

LET P=R 

10 

REM PROGRAMMA GIOCO DEL TRIS 

520 

FOR T=1 TO 4 

11 

LET Q=0 

530 

PRINT “LA MIA RISPOSTA:” 

12 

LET G=0 

540 

LET V=61 

15 

PRINT, "GIOCO DEL TRIS" 

550 

LET A=A+1 

17 

FOR F = 1 TO 32 

560 

IF T=1 OR R=P+4 OR R=P—4 THEN GO TO 

19 

PRINT 


620 

21 

NEXT F 

570 

LET P=P+4 

23 

PRINT 

580 

IF P > 8 THEN LET P=P-8 

25 

PRINT 

590 

LET M=P 

27 

PRINT “SAI LE REGOLE DEL GIOCO?” 

600 

GOSUB 200 

28 

PRINT 

610 

GO TO 790 

29 

PRINT 

620 

IF A=3 AND E THEN LET A=7 

30 

INPUT A$ 

630 

IF A=4 THEN LET A=6 

31 

IF A$ = “SI” OR A$ = “S” THEN GO TO 100 

640 

LET P=P+A 

33 

PRINT "CONSISTE NELL’ALLINEARE 3 PEDINE 

650 

IF P >8 THEN LET P=P—8 


IN UN QUADRATO DI 9 POSIZIONI" 

660 

LET M=P 

35 

PRINT “LA PEDINA DELLO ZX LA X, LA TUA 

670 

GOSUB 200 


PEDINA E LO 0” 

680 

IF A=7 THEN GO TO 790 

36 

FOR F = 1 TO 32 

690 

IF T=4 THEN GO TO 770 

37 

PRINT 

700 

PRINT “MUOVI ANCORA" 

38 

NEXT F 

710 

INPUT R 

39 

PRINT 

720 

CLS 

40 

PRINT 

730 

LET M=R 

100 

DIM A(9) 

740 

LET V=28 

110 

FOR J=0 TO 2 

750 

GOSUB 200 

120 

FOR 1=1 TO 3 

760 

NEXT T 

130 

LET A(l+3j;=28+l+4 J+2 l*(J>1) 

770 

PRINT "ABBIAMO PAREGGIATO” 

140 

NEXT 1 

771 

LET Q=Q+1 

150 

NEXT J 

773 

GO TO 800 

160 

LET A(4)=36 

790 

PRINT “HO VINTO-VIVA LO ZX-80" 

170 

LET A(5)=61 

792 

LET G=G-f 1 

180 

LET A(6)=32 

794 

PRINT 

190 

GO TO 400 

795 

PRINT 

200 

FOR 1 = 1 TO 9 

800 

PRINT “VUOI GIOCARE ANCORA?" 

210 

IF A(l)=M+28 THEN LET A(I)=V 

801 

PRINT 

220 

NEXT 1 

802 

PRINT 

230 

FOR 1= 0 TO 2 

810 

INPUT B$ 

240 

FOR J=1 TO 3 

820 

CLS 

250 

PRWT CHR$ (A(J+3I)); "A”; 

821 

IF B$ = “SI” OR B$ = “S” THEN GO TO 100 

260 

NEXT J 

823 

PRINT “HAI GIOCATO”; G+Q; “PARTITE” 

270 

PRINT 

824 

PRINT “HAI PERSO"; G; “VOLTE” 

280 

PRINT 

825 

PRINT “SEI RIUSCITO A PAREGGIARE"; Q; 

290 

NEXT 1 


“VOLTE" 

300 

PRINT 

830 

STOP 
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MASTER MIND 


Autore: G. Bortone 
Programma utilizzante: 

4 K di memoria 


Il gioco consiste nell’indovinare pertentativi le cifre di 
una combinazione segreta. Non è sufficiente indovinare 
le singole cifre, ma si deve indovinare anche la posizio¬ 
ne di ogni singola cifra. 

La combinazione segreta può essere formata da 1 a 7 
cifre numeriche, li giocatore sceglie il numero delle cifre 
della combinazione ed il livello di difficoltà; cioè quanti 
valori diversi può assumere ogni cifra (non meno del 
numero delle cifre e non più di 10). 

Una cifra non può figurare più di una volta nella com¬ 
binazione. 

Le cifre del primo tentativo possono essere trovate a 
caso o secondo una logica di gioco per i più esperti. 

Per introdurre le cifre desiderate, si premono i relativi 
tasti e poi NEW LINE. La prima cifra inserita viene accet¬ 
tata come prima cifra si sinistra. Se le cifre introdotte 
sono troppe, quelle in più a destra vengono ignorate. Se 
si vuole correggere il numero introdotto prima si preme¬ 
re NEW LINE si può usare SHIFT & REBOUT. 

Un numero accettato dal calcolatore non può essere 
corretto. Il programma accetta anche lo spazio al posto 
di una cifra e considera lo spazio come cifra non presen¬ 
te. Il programma memorizza il numero introdotto e lo 
confronta con la combinazione segreta. Dopo questo 
confronto viene evidenziato: 

— il numero di cifre esatte presenti anche se non in 
giusta posizione; 

— il numero di cifre esatte presenti in giusta posizione 

— “xxx” per segnalare che tutte le cifre introdotte sono 
presenti nella combinazione. 

Utilizzando i risultati di ogni tentativo il giocatore 
deve indovinare la combinazione segreta. 

Una combinazione di 4 cifre con valori tra 0 e 6, può 
essere indovinata in 4, 5 o 6 mosse. 

Se si vuole abbandonare la partita basta premere 
NEW LINE ed il programma stampa la combinazione 
segreta. Se si vuole interrompere il programma nella 
fase delle domande iniziali basta introdurre zero. 

Se non si indovina la combinazione entro il quindice¬ 
simo tentativo lo schermo si riempie completamente ed 
il programma dà errore di tipo 5. Si può schiacciare 
CONT. per continuare, ma si perde il contenuto dello 
schermo. 

LISTA VARIABILI 

I, J indici per il controllo di cicli 

N = numero delle cifre 

A(N) vettore che contiene la combinazione segreta 

D = livello di difficoltà 

X = cifra della combinazione 

G = numero dei tentativi 

B$ = tentativo 

H(N) — vettore del tentativo 

R = numero cifre indovinate 

C numero posizioni indovinate. 



MASTER MIND 

100 PRINT "BUON DIVERTIMENTO CON MASTER 
MIND” 

110 PRINT 

120 PRINT “CON QUANTE CIFRE VUOI GIOCARE?” 
125 PRINT “MASSIMO 7” 

130 INPUT N 

135 PRINT N 

136 IF N >7 THEN GO TO 110 

137 IF N <1 THEN STOP 

140 LET N =N -1 

150 DIM A(N) 

160 PRINT 

170 PRINT “CHE LIVELLO DI DIFFICOLTA’ VUOI?” 
175 PRINT “SCEGLI TRA”; N+1; “E 10” 

180 INPUT D 

190 PRINT D 

194 ID D < 1 THEN STOP 

195 IF D <(N+1) OR D >10 THEN GO TO 160 
195 FOR 1=0 TO N 

197 LETA(N)—10 

198 NEXT I 

200 FOR I = 0 TO N 

210 LET X rr RND(D)-1 

220 FOR J=0 TO I 

230 IF X=A(J) THEN GO TO 210 

240 NEXT J 

250 LET A(l) = X 

260 NEXT I 

270 LET G=0 
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IMPARIAMO LA 
MATEMATICA 


Autore: Dr.ssa R. Bonelli 
Programma utilizzante: 

4 K di memoria 


300 CLS 

302 IF NOT N=0 THEN GOTO 305 

303 PRINT "-SCRIVI"; N+1; "CIFRE TRA 0 
E”; D—1; 

304 GOTO 310 

305 PRINT “—SCRIVI"; N+1; “CIFRE TRA 
0 E"; D—1 

310 PRINT “< N > -TENTATIVI—CIFRE—POSIZIONI” 

320 PRINT 

330 INPUT B$ 

333 IF B$ = " ” THEN GO TO 700 

335 LET G=G+1 

340 DIM H(N) 

350 LET R=0 

360 LET C=0 

400 FOR 1=0 TO N 

410 LET X= CODE (B$)-28 

415 LET H(l) =X 

420 IF X=A(I) THEN LET 0=0+1 

430 FOR J=0 TO N 

440 IF X= A(J) THEN LET R=R+1 

450 NEXT J 

460 LET B$ =TL$ (B$) 

470 NEXT I 

500 PRINT G, 

501 FOR 1=0 TO N 

502 IF H(l) <0 OR H(l) >9 THEN PRINT “A"; 

503 IF H(l) <0 OR H(l) >9 THEN GO TO 507 

506 PRINT H(l); 

507 NEXT I 

508 IF R=N+1 THEN PRINT, R-C; “Axxx”, C 

509 IF R=N+1 THEN GO TO 511 

510 PRINT, R-C, C 

511 IF C=N+1 THEN GOTO 600 

520 GOTO 330 

600 PRINT 

605 IF NOT G=1 THEN GOTO 610 

606 PRINT "SEI RIUSCITO IN"; G; “TENTATIVO" 

607 GO TO 620 

610 PRINT “SEI RIUSCITO IN “G” TENTATIVI” 

620 PRINT 

630 PRINT “VUOI GIOCARE ANCORA? S/N"; 

640 INPUT S$ 

650 IF S$ = "S” THEN GOTO 196 

655 STOP 

700 PRINT 

710 PRINT “ABBANDONI DOPO”; G; “TENTATIVI” 
720 PRINT 

730 PRINT “LA COMBINAZIONE SEGRETA ERA" 
740 FOR 1=0 TO N 

750 PRINT A(l); 

760 NEXT I 


Questo programma propone l’esecuzione di semplici 
calcoli algebrici usando i caratteri ingranditi. Può quindi 
essere jnteressante per esercitarsi nel calcolo rapido 
mentale è per imparare le tecniche di ingrandimento dei 
caratteri. 

Vengono scelti a caso due numeri compresi tra 1 e 49 
e vengono proposti o in somma o in sottrazione. Nelle 
linee da 200 a 350 è contenuta la routine per ottenere 
l’ingrandimento dei caratteri. 
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10 

20 

100 

110 

120 

130 

140 

150 

160 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

600 

610 

620 

630 

640 

650 

660 

664 

665 

666 

667 

668 

669 

700 

710 


A 




RADICE 

QUADRATA CON 

3 DECIMALI 

-' 


Autore: G. Bortone 
Programma utilizzante: 

1 K di memoria 


REM IMPARIAMO LA MATEMATICA 
PRINT “IMPARIAMO LA MATEMATICA” 
RANDOMISE 
DIM C(3) 

DIM P(7) 

FOR J = 0 TO 7 
LET P(J) = 2** (7 - J) 

NEXT J 
GOTO 400 

IF S = -1 THEN LET C(1) = 18 

LET C(2) = X/10 

LET C(3) = X - 10* C(2) + 28 

IF C(2) > 0 THEN LET C(2) = C(2) + 28 

FOR L=0 TO 6 

FORI = 1 TO 3 

LET V = PEEK (3584 + L + 8*C(I)) 

FOR J = O TO 7 

LET G = (V AND P(J)) >0 

PRINT CHR$ (- 128*G); 

NEXT J 
NEXT I 
PRINT 
NEXT L 
PRINT 
RETURN 
LET K = 0 
LET C(1) = 0 
LET S=1 

LET A = RND (49) 

LET X = A 
GOSUB 200 
LET C(1) = 19 
LET S = 2*RND (2) -3 
LET B = RND (49) 

LET X = B 
GOSUB 200 
INPUT C 

IF C = A + S*B THEN GOTO 700 
LET K = K + 1 
IF K > 2 THEN GOTO 660 
PRINT “TENTA DI NUOVO" 

GOTO 600 

PRINT “LA RISPOSTA ERA"; A -f S*B 
PRINT 

PRINT “ANCORA?” 

INPUT A$ 

IF NOT A$ = “SI” THEN STOP 

CLS 

RUN 

PRINT “VA BENE” 

GOTO 664 


Il programma calcola la radice quadrata con 3 deci¬ 
mali di qualunque intero minore di 32767 e positivo. 

il metodo interativo usato nelle linee 200-240 risolvei 
problemi di supero di capacità relativi allo ZX-80. 

Si usano nomi mnemonici estesi per indicare alcune 
variabili. 
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10 

20 

100 

110 

120 

130 

140 

150 

160 

170 

200 

210 

220 

230 

240 

250 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 







REM RADICE QUADRATA 

PRINT “CALCOLO RADICE QUADRATA CON 

3 DECIMALI" 

PRINT “SCRIVI UN NUMERO- 

INPUT A 

CLS 

PRINT “RADICE QUADRATA DI”; A; “ ="; 

LET U = 174 

LET L = 0 

LET FRAC = 0 

LET DELTA = 0 

LET NEW = (U - L)/2 

IF (NEW - 1)** 2 < A AND (NEW + 1)**2 >A 
THEN GOTO 250 

IF NEW**2 > A THEN LET U = NEW 
IF NEW**2 < A THEN LET L = NEW 
GOTO 200 

IF NEW**2 > A THEN LET NEW = NEW - 1 
LET ERROR = 100*(A-NEW**2) 

IF ERROR < 2 THEN GOTO 470 

LET FRAC = (ERROR/NEW)/2 

LET FSQ = FRAC**2 

LET ERROR = ERROR - 2*NEW*FRAC 

IF ERROR > 0 THEN GOTO 390 

LET FRAC = FRAC - 1 

LET ERROR = 100 *(A-NEW**2) 

GOTO 330 

LET ERROR = 10 * ERROR - FSQ/10 

IF ERROR < 0 THEN GOTO 360 

LET DELTA = (ERROR/ NEW)/2 

LET EDASH = ERROR - (2* FRAC*DELTA)/2 

IF EDASH > 0 THEN GOTO 460 

LET DELTA = DELTA - 1 

GOTO 420 

LET DELTA = (EDASH/NEW)/2 
PRINT NEW; FRAC; DELTA 


SISTEMA DUE 
EQUAZIONI IN 
DUE INCOGNITE 

/--- 


Autore: G. Bortone 
Programma utilizzante: 

1 K di memoria 


Questo programma risolve un sistema di due equazio¬ 
ni in due incognite di primo grado: 

AX+BY+C=0 

DX+EY+F=0 

I dati devono essere introdotti nell’ordine A,B,C- 
,D,E,F, ma vengono chiamati A,B,C,A,B,C. 

I risultati vengono dati in numero intero o in frazioni 
ridotte ai minimi termini 
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Variabili usate: X(6) vettore per i coefficienti 
A(2) vettore per i coefficienti 
D = determinante 
GCD — massimo comune divisore 
I indice 

A,B,Q variabili per il calcolo 
S variabile per il segno 


10 REM SISTEMA DUE EQUAZIONI 
100 DIM X(6) 

110 DIM A(2) 

115 PRINT 

120 PRINT “SISTEMA DI 2 EQUAZIONI DEL TIPO:” 
130 PRINT “A*X + B*Y + C = 0 
140 PRINT 

150 PRINT "INGRESSO DATI” 

160 FOR I = 1 TO 6 

170 PRINT CHR$ (37 + I - ((I - 1)/3)*3), 

180 INPUT X(l) 

190 PRINT X(l) 

200 NEXT I 

300 LET D = X(1)*X(5) - X(2)*X(4) 

320 LET A(1) = X(3)*X(5) - X(2)*X(6) 

330 LET A(2) = - X(3)* X(4) -f X(1)‘X(6) 

331 IF D = 0 AND A(1) = 0 AND A(2) = O THEN 

GOTO 950 

332 IF D = O THEN GOTO 900 

334 CLS 

335 PRINT 

336 PRINT “|A”; X(1); “X+”; X(2); “Y+”; X(3); “=0”; 

337 PRINT 

338 PRINT “|A”; X(4); “X+”; X(5); “Y+”; X(6); “=0”; 

340 PRINT 

341 PRINT 

360 LET D= -D- 

370 LET S = D/ABS(D) 

400 FOR I = 1 TO 2 

410 LET B = ABS (D) 

420 LET A = ABS (A(l)) 

500 LET Q = A/B 

510 LET R = A -Q*B 

520 LET A = B 

530 LET B = R 

540 IF R > 0 THEN GOTO 500 

550 LET GCD = A 

555 PRINT 

556 IF I = 1 THEN PRINT “X =”; 

557 IF I = 2 THEN PRINT “Y =”; 

600 PRINT S*A(I)/GCD; 

610 IF NOT GCD = 1 AND NOT ABS(D/GCD) =1 
THEN PRINT 7”; ABS(D/GCD) 

620 PRINT 

630 NEXT I 

640 STOP 

900 PRINT 

901 PRINT 

902 PRINT 

903 PRINT "NESSUNA SOLUZIONE” 

910 STOP 

950 PRINT 

951 PRINT 

952 PRINT 

953 PRINT “SISTEMA INDETERMINATO” 

955 STOP 
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IL MEGLIO DELLA 


1 



vogliamo 
I ricominciare 
Cosi ? 


i 


1 


IMPARIAMO A PROGRAM! 

IN BASIC CON II 

Vie CBM 


mm 

IHB 


pascal 

MANUALE 


MANUALE 
E STANDARI 
DEL LINGUAGGK 



Per ordinare questi libri utilizzare l’apposito tagliai 
































PROGRAMMAZIONE 


4 5 
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IMPARIAMO A PROGRAMMARE IMPARIAMO A PROGRAMMARE 
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6 Introduzione al BASIC Q Programmazione dello ZX80 e progettazione logica 

■ L. 18.500 (Abb. 16.650) Cod. 502A L. 19.000 (Abb. 17.100) Cod. 324P 

7 Z80 - Programmazione in Linguaggio Assembly Q Programmazione delt'8080 e progettazione logica 

■ L. 29.500 (Abb. 26.550) Cod. 326P L. 16.500 (Abb. 14.850) Cod. 325P 

•4 rt 8080A/8085 - Programmazione in Linguaggio Assembly 

■ U. L. 24.000 (Abb. 21 600) Cod. 323P 


jo ordine JACKSON, inserito in questo libro. 














A ciascuno 

ri suo computer. 



Anche voi avete bisogno del 
computer personale 

Tutti hanno sentito parlare di 
microelettronica e di microprocessori. 
Molti ne conoscono 1 vantaggi ma 
vorrebbero saperne di più molti 
amerebbero sapere tutto. 

Qui si svela che ZX80 è 
l'apparecchio più importante del nostro 
tempo. Ciò che molti anni fa era 
costosamente consentito solo ai grandi 
organismi, ora è alla portata di tutti; del 
professionista, della piccola azienda, 
del nucleo familiare, persino della 
persona singola. 

Lo ZX80 della Sinclair 
offre servizi di gran lunga 
superiori al suo prezzo. 

Pesa solo 350 grammi. 

È applicabile a 
qualunque 
televisore. 


Può 
essere 
collegato 

a un registratore di 
cassette per la memorizzazione 
permanente di istruzioni e dati. 

È un piccolo apparecchio che può 
mettere ordine in tutte le vostre cose e 
aiutarvi più di una schiera di segretan. 

Il primo computer personale 
veramente pratico 

ZX80 anticipa 1 tempi. Le sue qualità 
colgono di sorpresa anche 1 tecnici, 
poiché il raggiungimento delle 
caratteristiche che lo distinguono 
sarebbero dovute apparire fra molto 


Alcune 
applicazioni 

A casa memorizza 1 
compleanni, 1 numeri telefonici, le 
ricette di cucina, le spese e il bilancio 
familiare, e altre mille applicazioni di cui 
si può presentare la necessità. 

Per aziende 


tempo. 

È conveniente, facile da regolare, 
da far funzionare e da riporre dopo l'uso. 
Soddisfa l'utente più preparato. 

Esempio di microelettronica 
avanzata 

La semplicità circuitale è il primo 
pregio dello ZX80, la potenza è il 
secondo pregio. Insieme, ne fanno 
l'apparecchio unico nel suo genere. 


Piccole gestioni di magazzino, 
archivio clienti e fornitori eccetera. 

Per professionisti 

Calcoli matematici e trigonometrici, 
elaborazione di formule, archivio. 

Per il tempo libero 

Lo ZX80 gioca alle carte, risolve le 
parole incrociate, fa qualsiasi gioco gli 
venga messo in memoria. 



intzlaii— 


Chiedere opuscolo illustrato a: 

GBC Italiana, casella postale 10488 Milano 

Dimostrazioni e vendita presso i 



CARATTERISTICHE TECNICHE 

MICRO - Z80A 
LINGUAGGIO - BASIC 
MEMORIA - 1 K RAM ESPANDIBILE A 16 K 
TASTIERA - KEYPLATE CON SUPERFICIE STAMPATA 
VISUALIZZAZIONE - SU QUALUNQUE TELEVISORE 
GRAFICA - 24 LINEE A 32 CARATTERI 
MEMORIA DI MASSA - SU QUALUNQUE REGISTRATORE 
MAGNETICO 

BUS - CONNETTORE CON 44 LINEE, 37 PER CPU 0V, SV, 9V, CLOCK 
SISTEMA OPERATIVO - 4K ROM 

ALIMENTAZIONE - 220V. 50 Hz CON ALIMENTATORE ESTERNO 
OPZIONALE 


LISTINO PREZZI IVA ESCLUSA 

• COMPUTER ZX80 

• COMPUTER ZX80 KIT 

• MODULO PER ESPANSIONE DI 
MEMORIA FINO A 3K RAM 

• COPPIE DI CIRCUITI INTEGRATI 
PER OGNI K DI MEMORIA 

e ALIMENTATORE 

e LIBRO 'IMPARIAMO A PROGRAMMARE 
IN BASIC CON LO ZX80" 
e MODULO DI ESPANSIONE DI 
16 K RAM COMPLETO DI INTEGRATI 
e ALIMENTATORE PER ZX80 
CON ESPANSIONE DI 16 K RAM 
e FLOATING POINT ROMS 8K 


TC/0080-00 L. 285.000 
TC/0081-00 L. 240.000 

TC/0083-00 L. 39.500 

TC/0082-00 L. 17.000 
TC/0085-00L. 12.900 

TL /1450-01 L. 4.400 

TC/0087-00 L. 191.500 

TC/0086-00L. 22.000 

TC 0088-00 L. 60.000 











